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ZA Fe idée de cette association a germé dans la 





; | tête de quelques CPCistes fous un peu avant 
2e * | — SYNIAX ERROR l'Amstrad Expo 90 et s'est concrétisée juste 
mA =—— = É grâce au remarquable succès du stand Fan- 

zines. 


La raison d'être de l'A.F.C. est simple : réunir l'expé- 
rence et les moyens des “Fanzine-makers” (terme 
non déposé) pour promouvoir encore mieux le CPC 
et ses fanzines. 

Pour cela, chaque fanzine adhérent (20 F par an) 
bénéficie de l'aide de tous les autres membres de 
l'A.F.C. qui le conseillent, lui font de la publicité 
dans leur propre fanzine où sur minitel s'il n'en a 
pas. 

De plus, de nombreux autres services voient le jour 
grâce aux bons offices de nos adhérents : 

+ Création d'une banque de musiques pour les 
fanzines sur disque (environ 4 disques déjà rem- 
plis..….). 

+ Création d'une bibliothèque de fanzines papiers 
pour ceux qui cherchent un fanzine qui n'existe 
peut-être plus, ou pour ceux qui en veulent tou- 
jours plus et qui désirent faire des échanges. 

+ Projet d'un serveur fanzine avec probablement 
téléchargement de fanzines. 

e Mise à jour d'un grand annuaire des fanzines 
existants où ayant existé (du boulot en perspective 
mais c'est déjà bien entamé...). 

* Banque de routines diverses. 

* Banque de démos. 

+ Scannérisation, digitalisations, SOS pro- 
grammations, Badges, vidéo des ex- 



















pos... 
L is d ” . A ce jour, l'AF.C. compte 18 
présentais succinctement 
AF.C. 
l'A.EC. 9, allée d'Ozon- 
: ' : : ville 
Mais, onn est jamais AT 
aussi bien servi que par soi- Mons 
même. 


Donc, voici une présentation 
de l'AFC, de ses activités et de 
ses services. 







































































ALLIGATOR 
DENIS 


ni a 


Le n°13 est pourvu de 14 pa- 
ges, mais cela ne se produira 


pas à chaque fois : il faut pour- 
voir tenir le ryhtme. 


A l'intérieur, plusieurs articles as- 
sez consitants sur, en vrac, les 
démos (Vues par un démo-ma- 


ker), les autres fanzines (pas 
seulement sur CPC, d'ailleurs), 
un résultat de sondage, des so- 
lutions de jeux et des trucs & as- 
tuces. 


HELPZINE est un bimestriel et 
coûte 2x3,80 F en timbres. 


HELPZINE 
29, rue des Chênes Verts 
44510 Le Pouliguen 


Ce fanzine est désormais 
sur disque après voir com- 
mencé sa vie sur papier. |! a 
d'ailleurs été un des pion- 
niers puisqu'il faisait partie du 
premier dossier sur les fanzi- 
nes. L'auteur, vous le con- 
naissez, il s'agit de Claude 
Le Moullec. Ce numéro 5 ne 
déroge pas à la règle du 
BASIC, puisque la majorité 
des programmes sont en 
BASIC. Mais cela ne préjuge 
pas de la qualité du résultat 
(voir les programmes publiés 
dans CPC). La présentation 
de l'Alligator Dundee est 
différente de ses confrères 
pulsqu'un menu général 
vous est présenté puis, il faut 
arrêter le programme pour 
lancer les parties intéressan- 
tes. 
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ESCAPE 


Th ; 

au ste n'existe plus. C'est 
ue eee Pets 

re ; e fa 

: en mais Ée Ars 
Sp AA es et la musi- 
FRS mpagne souvent les 
as ee S graphismes sont sou- 
nee pour un usage en 
MER e et très peu sont ori- 
1 si ais 1! faut quand mêm 
Ne no 2 ent po 
: meilleu 

gt cela il faut envoyer . ns : 

e et Une enveloppe os 


(3.80 PF) et self 
-Q , 
se suivante : dressée à l'adres- 


st Duval 
, rue Frédéric Cho 

in 
51000 HADnidie Une 














EDITO 


D — 
Eh oui, nous revoila pour Ge deuxième 
punèro J'en profite au passage pour 
remercier PA cu AUBERT de 
d'avoir Sl gentiment accepté de faire 
de la ub pour nous.Êt Je vous remercie, 
yous d'avoir ete si nonbreux à nous 
demander STAR GMES, ca nous à fait très 
plaisir, et ÿ 
à l'écoute de vos éventuelles suggestions : 
fvant de vous quitter, Je tiens à vous dire 
que :es rubriques CINE et BD ne paraitront 
que tres rarement dans STAR GAMES, en effet, 
ces rubriques ne font pas \'unaninité, alors 
j'ai décidé de les réduire doilär Je crois 
que j'ai tout dit ! Alors bonne lecture 








9: 
18: LE Mo 





PROGRAMME: 
Ce petit programme sort sul japrinante 1e gataiogue de V05 disquett. 
face et le nuners si vous desirez creer des iches. 















2:60SU8 218:MD0 

1ACATE VB 28:14: 184P8 MENT 

198 FOR K:1 10 SLLACATE À 41:00 ag U=USPE NET 

118 GOSUB 228 :PRINT 4," RE I Eu 
144:C0SUB ct] 

1% 7 #4," DISK No: DURE (Er) a Lu Mo: 

ua FOR YA 10 2-L:F0R x, 10 

148 LOCATE X,4:C0SUB PTCALTE LA LEA 

19 PRINT CYAN LED AU 





“,44:C0SUB 


\LOCATE 2,29 
188 INPUT sCataloguer ‘me autre disquette on 2 “ist 
gite" QR 44="0" TN SE 28 


‘0 
CARS (4) : RETURN 
L NA (EG 2: RETURN 





ainsi 
yous 


25720 BYANS 


&OMMAl PE 


1: 
2e: 
3: TOP JEUX 
A: 
5: 







SUR DOUBS 


GIT 
DOSSIER "COMMENT RESOU 


6: $.0.5 “p’ AIGLE D'OR" 
7: LE TEST DU MOIS 
8 


. LES JEUX GRATUITS 


T DE LA 


es, le noabre de xilo-octet \ibr 


SERIES 
[LE Top JEUX! 





; SHADOW HARRIOR 
G TS TURTLE 









e, la 





















DRE 


vos PROBLEMES DE CHARGEMENT 


T7 mme 
Las RE] mn à 


FUPRIeL 


Star Games 
ï est un fanzi 
Aa recto-verso one ont 
FA tiques classiques : soluti à 
Riurd : . pas très sr 
os te Le rucs et astuces, 
e programme et 
l un d 
as de pe st 
_ bath le tout ji 
e, il y a un n 
he concernant les ou ere 
de ans la presse : Il ÿ a un Co. 
Has es les programmes Eu 
sans ie sr 
utorisati 
Editions Soracom et de ter ï 


Damien Laure: 
nt 
25320 Byans sur Doubs 


ES 


HE fe É 
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… Med 
HeALTA 





DOMARK 


| vous almez les 
S aventures ma- 
rimes et les 
combats à l'épée, 
vous allez être satis- 
faits par Skull & 
Crossbones (les sym- 
boles du drapeau 
pirate). 
En effet, vous allez 
vous battre contre une multitude d'adversaires 
et ramasser des trésors sans oublier de captu- 
rer quelques damoiselles, 
La compilation «The Winning Team» regroupe 
5 Jeux d'un genre différent : Klax, APB, Escupe from 
the Planet of the Robot Monsters, Cyberball et Vin- 
dicators. 
Leur seule caractéristique commune est d'avoir connu la gloire 
sous forme de bornes d'arcade. 















SPECTRAVIDEO 


e spécialiste de la manette de 
(e Jeux présente un Joystick d'une 

forme peu conventionnelle : le 
Manta-Ray. 
Cette silhouette étrange a été étur- 
diée afin de permettre un bon posi- 
tionnement dans la main et surtout 
offrir la possibilité de choisir son 
bouton de tir parmi les 3 disponibles. 
À essayer d'urgence si vous avez 
des problèmes de manette. 














SFMI 


hez US Gold, on sort les gros- 

ses cylindrées et on s'installe 

à bord de Super Monaco 
Grand Prix. 
Plusieurs boites de vitesses possibles 
sur votre F1 et des qualifications 
difficiles à obtenir. Cette version ne 
possède évidemment pas toutes les 
caractérisques du jeu sur console 
mals peut procurer de bonnes sen- 
sations. 
Venant tout droit de l'arcade, Sha- 
dow Dancer est l'occasion de ba- 
garres dantesques entre un ninja et 





[SECA) 


À ARCADE HITS 2Y 


des malfaisants. Le ninja est aidé 
dans son combat par un chien qui 
le suit comme son ombre. Là aussi, Il 
s'agit d'une adaptation d'un jeu 
d'arcade à succés. 

Cette compilation comporte plu- 
sieurs simulations : Italy 90, Heavy 
Metal, Snowstrike et Turbo Outrun et 
elle se nomme justement Super Sim 
Pack. 

La suite de Turrican porte bien son 
nom : Turrican 2 et promet d'être 
encore meilleure que la première 
partie (si c'est possible 1). 


ANR D EL CL TRS RE TS ET PE EP TOURS 


UBI SOFT 


oici un logiciel déjà sorti de- 
\/ puis un moment mails qui ré- 

Jouira les amateurs d'aventu- 
res. B.AJT. (ou Bureau des Affaires 
Temporelles) vous place dans la 
peau d'un agent chargé de retrou- 
ver des terroristes dans une ville fu- 
turiste. 





Le logiciel 
de 
création 


musicale 


sur 
Amstrad 


L'atmosphère est étrange et les 
graphismes très convaincants. Le 
seul manque concerne le son mais 
ce jeu reste un des meilleurs du 
genre sur CPC. 


Du coté des utilitaires : une bonne 


idée, la réédition du logiciel de mu- 





sique, Music Pro. 

Pour ceux qui viennent d'avoir leur 
CPC, rapellons que ce logiciel peut 
être utilisé pour la composition mu- 
sicale sur les trois voies de l'Amstrad 
et qu'il possède un module permet- 
tant l'utilisation des musiques dans 
vos programmes BASIC (le tout sans 
arrêter le déroulement du program- 
me). 


LORICIEL 


our commencer à vous rafrai- 
P chir les idées, Loriciel vous 

plonge dans l'eau froide mais 
avec un bateau pour véhicule. En 
fait il s'agit de courses utilisant des 
Formules 1 aquatiques. Une épreur- 
ve éliminatoire est indispensable 
avant de prendre le départ de 
chacune des 6 courses possibles. Ce 
logiciel est intitulé : Out Board et 
saura vous griser par la vitesse et les 
multiples animations émaillant l'ac- 
tion. Bullderland possède une cer- 
taine originalité dans sa conception 
puisqu'il emploie à la fois des élé- 
ments des jeux de plate-formes 
(graphismes et déroulement des 
décors) et des éléments de straté- 
gle : votre personnage avance seul 


ACTUALITE 


GENERATION 5 


ous connaissez certainement 
\/ la gamme de cet éditeur et 

vous devez savoir qu'il est 
principalement tourné vers les logji- 
clels éducatifs. Mais cette orienta- 
tion n'exclue pas le coté ludique 
puisque des logiciels comme Secret 
England ou Deutsches Geheimnis 
présente un scénario de jeu 
d'aventure. D'ailleurs une version 
espagnole sur le même modèle ne 
saurait tarder. Mais il est également 
prévu chez Génération 5, la sortie 
d'un logiciel de foot plutôt axé sur 
la gestion de l'équipe et sur la stra- 
tégle du jeu. I! ne s'agit pas d’un 
clone de Kick-off mais de la version 
micro d'un jeu de plateau, réalisé 
avec la collaboration de la FFF et le 
rédacteur en chef de France-Foot- 
ball. Vous devriez pouvoir vous pro- 
curez ce jeu aux alentours du mois 
de Novembre. 






et vous devez lui «déblayer» le chemin. Parmi les édu- 
catifs, la série «Denver» utilise le célèbre dinosaure 
comme support pour l'apprentissage de la mémoire 
je mémorise) ou de la reconnaissance des formes. 
Ces logiciels bénéficient de graphismes colorés, de dif- 
férents niveaux et d'une grande simplicité d'utilisation. 























3615 JESSICO U/Y/,AMSTRAD' 


SUPER QUIZZ ! D DAC I 2 
CONSOLES MEGADRIVE À GAGNER 


TOP HITS 













C D 
188/225 ADIDAS CH. SOCCER . 
ADS 
ALINE 
AMAZING SPIDERMAN 
1458/1098 APPRENTICE 
















C D 
125/175 
165/225 

ss 195 


97/145 CUS EDUCATIFS 
125/185 ADVANCED OCP ART STUDIO... A TTAN 
ge 245 APPRENDRE L'ASSEMBLEUR 





ALLEMAND CONFIRME 4/3e 220 
ALLEMAND DEBUTANT 6/5e 220 






































BACK THE GOLD AGE … 
BACK TO THE FUTURE 3 
SUPER SIM PACK —— 148/198 BADLANDS 
Snowstrike + Italy 90 BAT 

+ Heavy metal + Turbo out run BATTLE COMMAND 
182/248 BIG RUN . 


105/145 COMPTABILITE ALIENOR 
97/145 COURS DE SOLFEGE 
Se 245 COURS DE SOLFEGE 2. 
105/155 DESSIN TECHNIQUE 6128 ; 

97/145 DESSIN TECHNIQUE TURBO 6128. 
145/195 DISCBASE 
145/195 DISCOLOGY V.6.0 
145/195 FACTURES FACILES 
145/195 FACTURATION + STOCK 
105/145 GESTION DOMESTIQUE. 


















APPRENDS MOI A ECRIRE CP/CE 
APPRENDS MOI A LIRE M/CP 
APPRENDS MOI A LIRE 2 CP . 
DONALD ALPHABET MAGIQUE 





















































LABYRINTHE D'ORTHOPHUS 
LABYRINTHE D'ERRARE ….. 




























CELICA GT4 RALLY. ARCADE FLIGHT SIMULATOR 































1682/2809 CHESSMASTER 2000 155/225 GESTION BANCAIRE 8128 45 BARDS TALE 1 
LABYRINTHE aux CENT CALCULS. CAPED CRUSADER 

COUGAR FORCE . . 275 GESTION DE FICHIER 612 90 LABYRINTHE aux MILLE CALCULS. BATILE SHIPS nn 50 

+ Stunt car racer + protennis tour CREATURES 49 LABYRINTHE ANGLOMANUA 1. BEACH HEAD 2 59 

FESTIVAL — - 182/198 CRETE 1941 75 LABYRINTHE ANGLOMANI 2. BMX FREESTYLE . 50 

cou lal poureu DEFENDER OF + 395 LABYRINTHE LEXICOS …… BMX SIMULATOR 5° 



















+ S.Wonderboy +P47 + Action fighter DICK TRACY 
128/182 DISC 
EDD THE DUCK. 
EUROPEAN SUPER LEAGU 


BMX SIMULATOR 2 . 
BOMBJACK 2 
BOXING MANAGER . 
CAULDRON 1 +2 


350 LABYRINTHE DES PHARAONS 
+ 240 LANGUE FRANÇAISE CE 1 
280 LANGUE FRANÇAISE CE2 
25 LANGUE FRANÇAISE CM1 


































145/195 IMPRESSION … 
97/145 IMPRIM'IMAGE 
105/155 INTEGRE (L') 1 




































































. 125/165 INTERPRETE 2 . 280 CAVEMANIA …. 59 

:125/155 KENTEL LE SERVEUR CPC 570 LANQUE FRANCAIS GE à CHUCK YEAGER 50 

F15 STRIKE EAGLE. . 109/169 KWIKFILE …. LANGUE FRANÇAISE 5€ . CAE se 

us LS COMENT PILOT : 145/195 LA SOLUTIO . 805 LANQUE EANCAISE de DEFS OF THE EAR 50 
FUGMF 





su 225 MAXAM K7 ou disc + 275/299 LANGUE FRANÇAISE 3€ . FANTASY WORLD DIZZY 


















GAUNTLET 3 108/155 MAXAM rom Re 50 
GAZZA 2 … : 145/195 MENTEL minitel malin + câble …. 395 NATHAN MATHS dE : FOOTBALL CHAMPION 50 
142/108 GRAND PRIX 500CC 2 cm 195 MEPHISTO NATHAN MATHS 6/ FOOTBALL MANAGER 59 
GOLDENAXE . 105/145 MULTIFACE 2 pour CPC NATHAN FRANÇAIS 220 FILTRE ECRAN 14” Monoc. 159 FOOBALLER OF YEAR 59 
GUNBOAT : 105/165 MULTIFACE 2 pour CPC PLU NATHAN ECOLE FRANÇAES 220 SUPPORT IMPRIM. 80 Col. GRAND PRIX 2 mm. 50 






245 GUNSHIP.. 
HAGAR THE HORRIBLE . 
HEROQUEST 105/155 

m———— 142/198 HYDRA 

Dynasty Wars + Strider + Black Tiger IRON LORD . 

[Ghouls N'Ghoust IRON MANS 


. 195/245 MUSIC PRO … 
… 97/145 THE INSIDER disc 
RAMDOS 


. 105/155 RODOS 

es 220 ROMDOS 
97/145 ROMBOARD 
97/145 PACK GESTION 
97/145 PACK PRINTER 
. 135/169 PROTEXT K7 ou disc : 
se 175 PROTEXT rom. ‘ ALLEMAND PRIMAIRE 
sn irinss . 105/145 PAGE PUBLISH ANGLAIS PRIMAIRE 





NATHAN ECOLE FRANÇAIS CM1 220 SUPPORT MONITEUR 12-14" ‘139 GRAND PRIX SIMULATOR 


MOUSE MAT (taple) … 65 HACKER 2 
MAR Set de Homer ue à Méienen, 
NATHAN ECOLE MATHS CE2 . ETIQUETTES 89x23 LES 500... 69 | ADAM BUMPER 
NATHAN ECOLE MATHS CM1 MATCHDAY … 
NATHAN ECOLE MATHS CM2 


MATCHDAY 2 
TRAIN EXPRESS DE DINGO … 145/195 QUELLE) MIG 29 (COD 


MICRO C CMIZEN 1200. 
190 CITIZEN SWIFT 24/9. 


199 

































































PAPERBOY .…… 


























































: 105/155 PAGE PUBLISHER PICTU | ESPAGNOL PRIMAIRE . 199 PINBALL SIMULATOR . 59 
Batman +Indy Action + Ghostbusters 2 MANCHESTER U. EUROPEAN. 105/155 PENTEL ITALIEN PRIMAIRE 199 PRO BOXING A LATOR Fa 
Robocop MEGA PHOENIX 97/145 PSYCHO-TE: ANGLAIS 4/3e … 199 PRO SKATEBOARD a 





tous les rubans NB par 3 = 144 F 


QUERRIERS NINJA 142/198 METAL MASTER . 145/195 SPRITES ALIVE CALCUL RAPIDE 199 . 
[Shinobl + Ninja Wamiors MIDNIGHT RESISTANCE 97/145 TASWORD + MAIL MERGE DECLIC LECTUR 199 IMAGEWRITER Il 5° 
MOKOWE mm 195 TRAFFIC CB …. EDUC. MATERNELLE 1 199 MT 80.. 50 

. 145/195 TRAFFIC EMISSION EDUC. MATERNELLE 2 199 ; 50 

MULTISPORTS . 105/155 TRAFFIC SWL . EUAMS 199 59 

Foot Manager 2 + Emelyn Hugues NARC . 105/155 UTOPIA rom EQUATIONS 170/199 59 
Bobelelgh + 3D Grand Prix NARCO POLICE . 105/155 VECTORIA 3 D FRANÇAIS SONS 170/199 STAR NL10 59 
ES BATTANTS 182/236 NAVY SEALS . 105/155 HORLOGE ASTRALE . FRANÇAIS-CM 170/199 STAR LC10 5 





199 STAR LC10 COULEU 
199 


199 PERIPHERIQUES 


199 


Rick Dangerous + Savage + Commando NIGHT SHIFT 

[Navy Moves +1. Warriors +F. Bruno Boxe OUTBOARD . . 145/195 PREVISIONS ASTRALES 

Es poux DU CIEL . 105/155 LE TAROMANCIEN . GRAMMAIRE 6/5e 
+ + sets 

Chuck Yeager + Ace 182 +ATF PANZA KICK BOXING . . 195/245 GRAPHOLOG LECTURE CP :86/280 SCANNER DART DISC ou K7 


Stricke Force Harrier + Tomahawk PICKN PILE … . 155/195 MATHS 2E CYCLE 1. 
. 145/189 EU MATHS 2E CYCLE 2. 170/199 DIGITALISEUR VIDI …… 


LAP CINE 198/259 PINBALL MAGIC . 
Ghostbuster + Allen + Wonderboy PLAYER MANAGER :135/175 R DE JOYSTICK. 49 MATHS GE. 170/199 LECTEUR CASSETTE + CABLE. SOCCER STAR 
97/145 PASON ONE Le MONTRE) 170/199 MULTIFACE 2+LE COPIEUR PLUS. 525 STFIRE 40 


Back the future + Quartet +Eydolon +  PLOTTING..... 
ù MULTIFACE 24 LE COPIEUR CPC. 495 Spy VS Spy 
RAP Leur root pas Dies +: PREDATOR 2 - 105/155 QUICKJOY JUNIOR 1707199 SYNTHE.VOCAL TMPI DISC/K7 … 545 STAR WARS à 
Permis de tuer + Vire et laisser mourir PRINCE OF PERSIA - 145/195 QUICKIOY 2... 1707189 SYNTHEVOCAL TMPH#HP DISC/KT. 625 SUMMER GAMES 


LS OF FIRE 182/248 RBII. 2 
urbo out Run + Chase HQ REVELA 97/145 QUICKIOY 3 SUPERCHARGE 199/250 7 LOGICIEL Educt. vocaux SUPER HANG ON 
Hard Drivin + Powerdrift RICK DANGE! : : 199: DMPSTO0 PROMO SUPER STOCK CARS 


15 MEGASTAR 182/289 ROBOCOP II … 
Navy moves + Exolon + Commando ROLLER BALL 


GEOGRAPHIE PRIMAIRI 
GEOMETRIE PLANE 


. 105/155 MIROIR ASTRAL .…. 














































199 EXT. MEMOIRE 64K/464 


97/145 QUICKJOY IR INFRAROUG 199 EXT. MEMOIRE 256K/464 


SUPERSTAR SOCCER . 
: De QUICKJOY VI JETFIGHTER. 


TARGET RENEGADE 











Battie valley +Bombjack +AIWof + 1942 SAGA ……. QUICKIOY TOPSTAR 275 EXT. MEMOIRE 258K/6126... THE MUNSTERS 50 
ee. ee GENERATION 5 CRAYON OPTIQUE Cassette .… 199 He 
vi DRAGON 97/145 QUICKJOY MEGABOARD. 315 DESTINAT. MATHS CE 1/2 235 CRAYON OPTIQUE Disquette 290 THUNDERBLADE 59 





145 DESTINAT. MATHS CM1/2 
109 DESTINATION MATHS 6/5e. 
129 4 SAISONS DE L'ECRIT CE/CM . 
149 4 SAISONS DE L'ECRIT 6/3e 


235 Éd 


235 (ALLENCITS 


235 AUTOFORM.BASIC + DISC 





répuscule Naja +Talisman d'Osiris SDAW 
ES FOUS DU VOLANT — 1758/2258 SHADOW DANCE 
.P.B. + Buggy Boy +TT Racer SHERMAN M4. 







97/145 KONIX SPEED KING … 
+ 105/155 KONIX SPEED KING AUTOFIR! 
+ 165/225 COMPETITION PRO 









TREASURE ISLAND DIZ. 
TURBO CART RACER 
149 TWIN TURBO V8 . 


























ctontoner:FAspar: Grand Prix SIM CNY - 145/195 pRO 5000 149 SECRET ENGLAND 6/5e 249 BIEN DEBUTER 6128 PLUS 
srnee Fe « . 78 US BASKET MASTE 59 
OR PSS Rent au LES 40/08 SES CAUMT BONES 97/145 ICO THE BOSS 169 SECRET ENGLAND 4/3e . 249 LIVRE LANGAGE MACHIN 129 VIGILANTE … 5 
New Zeland Story + Rainbow island SPIRIT OF EXCALIBUR 188 MCD SM ne 60 DEUTSCHES GEHEIMISS. 0/66. 240: 102 PROGRAMME CC 135 WORLD CUP C 3 
+ 105/155 WiCO 3 WAY DEUTSCHES GEHEIMNIS 4/3e …. 249 AMSTRAD EN FAMILI WORLD CUP CHALLENGE 5° 
Super Wonderboy + Bubble Bobble STAR CONTROL . 105/165 BIEN DEBUTER CPC 5 WORLD CUP 2 5° 
ES FOUS DU FOOT 178/228 SUPERCARS … . 105/145 LANCER ELUD VTA LIVRE DU BASIC 8124 89 WORLD LEAGUE SOCCER 5 






Kick off + Foot Manager 2 SUPER MONACO GP. 
Figthing soccer + Emelyn Hugues SUPER OFF ROAD RACE 

ES JUSTICIERS 2 148/198 SUPER SKWEEK 
Ghostbusters 2 +Cabal +0. Thunderboit SWAP 


SWITCHBLADE 
ETIQUETTES TARGHAN … 


245 WORLD SOCCER 


245 e 
us DIV) 9H 11e] "Le 
ES ADVANCED OCP ART STUDIO … 

ŒÆ LA SOLUTION rexromar : oatamar : CALCOMAT 
É% JOYSTICK QUICKJOY 5 SUPERBOARD . 
LECTEUR CASSETTE + CABLE. 


LeeNe le A'AXATAERE 


Réf. 10 20 | DISQUETTES 3 " 


. 105/155 Uniquement en disquette ORTHOGUS 1. CM/6e 
 105/145 Ko4 - ARKANOÏD 1 + 2 ORTHOGUS 2. 6/3e 


. 145/195 Ko2 - GAUNTLET 1 + 2 MATHEX CE/CM 


- 195 N°3 - OUT RUN + ROAD BLASTER MATHEX 6/5 
97/145 Ne4 . END.RACER + SUPERHANG ON MATHEX 4/3 


195 Nes _ IK++ MATHEX 6/3 
ETIQUETTES DISC 3" LES 100... 30 TEENAGE HTURTLES …. 108/155 No MAYGUE A GRECN BERET PACK REVISION CE/CM 


ETIQUETTES CASSETTE LES 100 .… 30 TENNIS CUP … 162/195 NS | PACK REVISION 6/5e . 
ETIQUETTES 80x23 LES 500 . 25/165 Ne : CERN NE EN NEAD PACK REVISION 4/30 
ETIQUETTES DISC 3.50" LES 05/155 Neo : MAEOON d PREDATOR 


+ 125/165 Ne10 - CRAZY CARS + SUPER SPRINT 
+ 105/155 Ne11 . BUB.BOBBLE + FLYINGSHARK 


Housse complète claviertécran 97/145 No42 - ACE OF ACES + INFILTRATOR JOYSTI Lol "4 
HOUSSE 6128/464 PLUS … 90 “a * 105/155 Ne13 - RENEGADE +T. RENEGADE 
HOUSSE 464 CPC . 99 + 145/175 Ne14 - TOP GUN + SLAP FLIGHT 























3"CF2 | 175F | 315F * 
. 145/195 ho 

HOUSSE 6128 CPC N°15 - ROLLING THUNDER + RYGAR 

HOUSSE DISC FD1/DDI1 . - 97/145 N°16 - D. THOMPSON + SUPER TEST TURBO 2 3"1/2DFDD | 69F | 130F 

HOUSSE DMP 2000/2 160 N°17 - MATCHDAY 2 +BASKET MASTER = 

HOUSSE DMP 3000/3 160 N°18 - WONDERBOY +WIZZBALL 5” 1/4 DFDD | _56F 105F à l'unité par 20 
HOUSSE PCW 8256/851 N°19 - QUARTET + RAMPAGE 

HOUSSE CITIZEN 120 D ; 89 N°20 - HYPERSPORTS +TRACKN FIELD * Disquettes certifiées 100% garantie à vie. 


Livrées avec enveloppes + étiquettes 





HOUSSE STAR NL10 : jé 99 N°21 - THUNDERBLADE + 1943 
HOUSSE STAR LC10 79 BONTIER DDSOL : 50x5.25* 119 N°22 - ROAD RUNNER + METROCROSS = : = 
HOUSSE SMM 804 . 99 BOMER DS100L : 100x5.25 149 N°23 - NEMESIS +R-TYPE | BOITIER PLASTIQUE 3" ou 3.50"... 32 F Les dix | 


N°24 - AFTERBURNER + STARWARS 
D CS CRD GE CS Ge Gus CURRS GURR CS CURE GUN CUS Cou GS CS DS Œu us 


NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS 


BON DE COMMANDE £YPR£SS à retourner à MS JESSICO - B.P 693 - 06012 NICE CEDEX 
GAGNEZ DU TEMPS ! Commandez par > 93.51.61.30 - 93.97.2200 






































[1 Je joins un chèque où mandat-lettre 1 
© Je paie à réception au facteur + 25 F 
D Je paie par carte bleue et je complète les 2 lignes ci-dessous = 
care bDieuve = 
date d'expiration 3 
PORT : LOGICIEL JEUX 20 F NOM: 2e 2 - : PRENOM 
à IMPRIMANTES 60 F N° ET RUE 
ORDINATEUR 120 F 
UTILITAIRES + ACCESSOIRES 25.F VILLE 2 CODE POSTAL 


ES RE CD CNE 
SIGNATURE OBLIGATOIRE 


DOM TOM + ETRANGER + 60 F 
PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL BOUTIQUE NINCE REC LEMOUOSTARSPEZOSEERLE ARINER 


GARANTIE 1 AN SUR LES LOGICIELS precisez votre ordinateur [_________] DISC [] Kk7 [] 


8 
NAN ARARARRRRRARARRARRRARARRARARARARARRRARRARNRARRARNRARRRRRARARRARRARANRNRNAN! 


ml bre 
INTERFACE MIDI 









Pour terminer l'article sur l'interface 

MIDI, voici la liste des composants 

ainsi que quelques indications pour 
le montage. 


LISTE DES COMPOSANTS 


CIRCUITS INTEGRES: 


IC1 = 74LS08 (4 portes AND à 2 entrées) 

IC2 = 74LS85 (comparateur 4 Bits) 

IC3 = 74LS30 (porte NAND à 8 entrées) 

IC4 = 74121 (monostable) 

ICS =741$374 (buffer 8 Bts) 

IC6 = 74LS04 (6 Inverseurs) 

IC7 =74L$165 (registre 8 Bits à décalage parallèle-série) 
IC8=74L$165 (registre 8 Bits à décalage parallèle-série) 
CONDENSATEURS: 

C1 = 100 9F/16 V Radial (polarisé) 

C2=1.2nF 

C3 = 100 nF 

C4 = 100 nF 

C5 = 100 nF 

C6 = 100 nF 

C7 =39n"F 


*C8 = 1000 9F/40 V Axial (polarisé et soudé verticale- 
ment sur le circuit Imprimé le moins vers le bas) 
*C9 = 1000 9F/16 V Axial (polarisé) 


RESISTANCES: 

R1 = 22 KQ (rouge, rouge, orange) 
R2 = 1 KA (marron, noir, rouge) 

R3 = 18 KQ (marron, gris, orange) 
R4 = 220 A (rouge, rouge, marron) 
R5 = 220 A (rouge, rouge, marron) 
R6 = 270 A (rouge, violet, marron) 


AJ = résistance ajustable 20 KQ multitours verticale 
(10 tours minimum) 


DIVERS: 
LED :5 mm verte (polarisé) 
1 support de circuit Integré à 20 broches 


Thierry MANGION 


Valable pour CPC 664 - 6128 


2ème partie 


4 supports de circuit Integré à 14 broches 

3 supports de circuit integré à 16 broches 

Plaque VEROBOARD 100*100 (ou Epoxy 100*100) 
Fiche DIN 5 broches à 180 degrés femelle pour câble 
“T1 = régulateur 5 V positif 7805 (polarisé) 


“Dissipateur en U pour régulateur (attention à la place 
disponible) 

*D1 = pont de diodes 1 À (polarisé) 

“Transformateur 220 V /9 à 12V-0,3A 

connecteur femelle pour circuit Imprimé + mâle pour 
câble type Joystick mals à 25 broches OÙ connecteur 
50 broches spécial pour connection sur cireult Impri- 
mé double face (voir texte) 


ATTENTION : 

Ne pas oublier de cäbler : 

- côté soudures 16 fils 

- côté composants 10 straps + & fils 


Si vous désirez confectionner un câble MIDI il vous 
faudra en plus: 

- 2 prises DIN mâles 5 broches à 180 degrés pour câble 
- Du câble 3 conducteurs non blindé ou du câble 2 
conducteurs plus blindage 

(Le fil blindé est plus cher que le non blindé, le blinda- 
ge du câble MIDI n'étant pas nécessaire. Faites vos 
comptes...) 


L'utilisation de supports de circuit intégrés est plus 
que conseillée. Elle permet de brancher l'extension 
sans installer ses circuits intégrés afin de vérifier qu'il 
n'y ait aucun problème à vide. Enfin, si tout s'est 
correctement passé, on pourra enficher les circuits in- 
tégrés en tenant compte de leur orientation et surtout 
en ayant COUPE L'ALIMENTATION DE LA CARTE, puis 
remettre le tout sous tension en sachant qu'un dépan- 
nage est beaucoup plus simple à réaliser si l'on peut 
ôter les circuits intégrés facilement. 


Pour la connection de l'interface sur l'ordinateur, 
deux cas peuvent se présenter selon votre configura- 
tion (ceci en tenant compte du fait qu'il doit être 
possible de déconnecter l'interface donc qu'il doit y 
avoir un point de coupure entre le bus d'extension et 
l'interface). Soit comme moi vous avez un 464 avec 
une extension quelconque déjà branchée (mémoire 


supplémentaire, synthétiseur de parole...) auquel cas 
vous ouvrez le ventre de celle-ci pour y souder vos 22 
fils en partance vers le connecteur mâle de l'extension 
MIDI. 

. Soit le bus d'extension est libre, auquel cas vous 
soudez vos 22 fils sur un connecteur spécial circuit 
imprimé et vous allez directement souder les extrémités 
de vos fils sur le circuit imprimé de l'extension MIDI (les 
signaux devant arriver sont repérés sur la vue «côté 
soudures»). 

Le càble de liaison entre l'ordinateur et l'interface 
MIDI ne devra en aucun cas excéder 25 cm. L'expé- 
rience m'a démontrée qu'au-delà ARNOLD devenait 
complètement fou. 


Autre point important, l'alimentation de votre CPC 
est dimensionnée de telle façon qu'elle puisse fournir 
pour d'éventuelles extensions une intensité maximale 
de 300 mA au-delà de laquelle il serait dangereux 
d'aller (risque de surcharge et claquage de l'alimen- 
tation stabilisée à l'Intérieur du moniteur). 

Donc, dans le cas où vous n'avez pas d'autre ex- 
tension que celle-ci branchée sur votre CPC (l‘Interfa- 
ce MIDI consomme environ 110 mA), vous pouvez vous 
servir de l'alimentation 5 V disponible sur la broche 27 
du bus d'extension et ramemer celle-ci sur l'interface 
MIDI au point marqué + sur la vue «côté soudures». SI 
tel est votre cas, || vous sera Inutile d'acheter et de 
souder les composants marqués d'un astérisque dans 
la liste des composants. 

Dernier point, vous n'êtes pas obligés de faire un 
circuit Imprimé traditionnel, vous pouvez acheter une 
plaque VEROBOARD qui est une plaque d'epoxy per- 
cée de trous au pas de 2.54 mm. || vous suffira de 
sulvre la vue «côté soudures» pour reller avec du fil les 
composants entre eux. 

SI vous avez un problème ou un doute, ne vous 
flez pas à la photo de l'extension car celle-ci étant un 
modèle expérimental, Il peut y avoir des divergences 
par rapport à l'Implantatlon des composants. Repor- 
tez-vous toujours au schéma de principe qui lui est 
normalement Juste. 

De toutes façons, pour tout problème de mise au 
point, de points obscurs, Je me tiens à votre disposition 
pour vous aider et vous conseiller. Vous pourrez me 
téléphoner aux heures de bureau au (1) 43.39.01.01 
ou (1) 43.77.81.08 (demandez Monsieur MANGION). 

L'interface montée il Vous faudra encore la régler 
sur la fréquence de 31250 Hz grâce à l'ajustable AJ. 
Si vous pouvez disposer d’un fréquencemètre, mettez 
vous entre le O Volts et le point repéré fr sur la vue 
«côté soudures». Réglez la fréquence sur 31250 Hz +ou- 
1% c'est-à-dire entre 30938 Hz et 31562 Hz. 

Sinon écrivez le petit programme basic suivant : 


10 out &FAFO,&90:out &FAFO,&3C:out &FAFO,&40 
20 for t=1 to 200:next t 

30 out &FAFO,&80:out &FAFO,&3C:out &FAFO,&40 
40 for t=1 to 200:next t:out &FAFO,&FF:goto 10 


Faites tourner ce programme tout en agissant sur 
AJT jusqu'à ce qu'une note soit entendue en répétition 
sur votre instrument et/ou jusqu'à disparition du mes- 
sage type «MIDI DATA ERROR» sur l'instrument. L'instru- 
ment devra être réglé sur le canal MIDI 1 en récep- 
tion. 


Vérifiez vos 
dépenses sur 
vos relevés de 


Le Particulier comptes et 
Avril 1990 Signalez 
immédiate- 
ment toute 
anomalie 


et la meilleure manière de faire cela 
avec facilité, rapidité et certitude 


est d'utiliser 
la gestion bancaire par excellence 


FAIRBANK 


(La Nouvelle Version 2.0) 


IL VOUS DONNE : 
Une méthode de saisie ultra-simple, voir semi-automatique, 40 pos- 
tes à personnaliser pour ventiler et totaliser vos transactions dont 
chèques, cartes crédit, prélèvements, retraits. Simplicité pour cor- 
riger, effacer, totaliser, trier, solder, pointer/vérifier, imprimer... Re- 
cherche et listing par date, par nom, par poste, par nom et poste, 
par chèque et bien d'autres encore | 


Mais surtout, ce qui distingue Fairbank, c'est que tout a été prévu, 
grâce à sa construction logique, sa rapidité d'accès et d'utilisation 
et sa congénialité tout à fait remarquable, pour vous éviter les 
irritations si souvent rencontrées avec des utilitaires de ce type. 


POUR CPC 6128 SEULEMENT 
UTILISE LE DEUXIEME 64 K 


250 F 


PORT PAYÉ 


Port de Plagne - 33240 SAINT-ANDRE-DE-CUBZAC 
Tél. 57 43 69 36 


KNIGHT-CLARKE 


Nom : 





Adresse 





Code postal Ville 








nkbfatre 


EASY SCREEN 


Guy DUBUS 


Valable pour CPC 664 - 6128 





EASY SCREEN est un 
logiciel, réparti sur huit 
programmes 
complémentaires, qui 
vous permet de créer de 
façon naturelle les 
pages-écran servant 
d'interface entre un 
programme BASIC et 
son utilisateur. 


ous pourrez ainsi donner à 
\/ vos programmes personnels 

une présentation impeccar- 
ble, arranger à votre goût celle de 
listings trouvés dans les revues, ou 
faire des menus pour vos disquettes 
(en remplaçant alors le ON... GOSUB 
du menu par ON...GOTO, les GOTO 
pointant sur les instructions RUN 
adéquates). 


Avec EASY SCREEN, vous pourrez 
créer plusieurs dizaines de pages- 
écran en Mode 1, comportant de 1 
à 4 fenêtres, avec où sans titre, 
avec où sans cadre : 

- menus verticaux (2 à 12 options) 
et horizontaux, possibilités de sous- 
menus en cascade avec retour 
automatique au menu précédent, 
- fenêtres de saisie (1 à 10 champs), 
- messages (1 à 12 lignes) ou ques- 
tions attendant une réponse par oul 
ou non. 


Gestion aisée des 4 couleurs. 

Possibilité d'interrompre un travail 
en cours, pour le reprendre ensuite 
au bon endroit. 

Génération automatique d'un 
programme BASIC contenant tous 
les paramètres de vos pages, et les 
sous-programmes nécessaires à leur 
affichage et à leur fonctionnement. 


ATTENTION : vous pouvez suppri- 
mer les lignes de REM seulement 
dans ES.BAS, CREECRAN.BAS et 
CREBASIC.BAS : dans tous les cas, 
respectez RIGOUREUSEMENT la nu- 
mérotation des lignes, ne faites pas 
de RENUM et donnez bien à cha- 
que programme le nom indiqué au 
début et pas un autre, ou alors ne 
venez pas vous plaindre si ça ne 
marche pas. Avant de faire 
RUN'ES”, faites toujours un Reset 
(CTRL+Shift+ESC), sauf si vous venez 
juste d'allumer la bécane. Il y a 
quelques secondes de noir au dé- 
but et lors des chainages, pas de 
panique ! Trois pages d'aide vous 
rappellent les points importants, et 
toutes les commandes sont indi- 
quées dans le logiciel. 


UTILISATION 
PRATIQUE 


Commencez par faire sur papier 
des maquettes simplifiées de vos 
pages, avec l'emplacement ap- 
proximatif des fenêtres, et les textes 
correspondants. Numérotez les pa- 
ges et les fenêtres, dans l'ordre 
d'apparition à l'écran. Pour les fe- 
nêtres emboitées, numérotez-les de 


12 


la plus grande à la plus petite. Faites 
quelques essais, vous verrez que 
EASY SCREEN est souple et facile 
d'emploi. 

L'automatisme ne pouvant pré- 
voir tous les cas particuliers, vous 
devrez peut-être apporter au pro- 
gramme généré quelques modifi- 
catlons où additions mineures * à la 
main”, en fonction des résultats à 
obtenir. Exemples : 

- Test à effectuer, ou ligne à appe- 
ler par GOTO ou GOSUB, après ré- 
ponse par OUI ou NON à une ques- 
tion. 

- RETURN à ajouter à la fin d'une 
page ne contenant pas de menu, 
et appelée à partir d'un menu. 

- Effacements de fenêtres sans ef- 
facer la page, comme indiqué dans 
les pages d'aide. 

Comme tous les générateurs 
d'application, EASY SCREEN crée 
des programmes plus volumineux 
que ceux élaborés à la main : c'est 
le prix à payer pour la facilité d'utili- 
sation. Mais il n'est pas interdit de 
remodeler un peu le programme 
généré, et surtout d'en élaguer tout 
ce qui n'est pas indispensable à vo- 
tre application. 

Dans le menu principal, vous 
pouvez reprendre le fichier de don- 
nées en cours en le pointant sur le 
répertoire. Cette fonction (obliga- 
toire avec certaines options du 
menu) ne marche correctement 
que s'il n'y a pas plus de 10 fichiers 
de données sur la disquette. Alors 
pensez de temps en temps à sup- 
primer ceux dont vous n'avez plus 
besoin (directement depuis le 
menu). 


STRUCTURE DU PROGRAMME 
GENERE 


Séquence répétitive, à partir de la ligne 2000. 


- 76e 1 : N° de page et nombre de fenêtres en REM (N° de ligne A1) 
Paramètres de couleurs de la page et CLS éventuel (N° de ligne A1+10) 
DATA des paramètres de la fenêtre 1 (N° de ligne AA1-A1+20) 
1 à 3 lignes de DATA des chaines texte de la fenêtre 1 (AA1+10 à AA1+30) 
Commandes et/ou affectation de variables (N° de ligne AA1+20 à AA1+40) 
C'est ici qu'auront lieu vos interventions éventuelles. 
DATA des paramètres de la fenêtre 2 (N° de ligne AA2=-AA1+50) 
- etc... 
- DATA des DARRAUE de La fenêtre 3 (N° de ligne AA3-AA2+50) 
ete..., ete. 
- ode 2 (422 414220) 
- etec..., etc. 





Pour terminer, je dois dire que m'ont bien rendu service, une très  quette (après une sérieuse adapta- 
deux routines de Bruno LE BOURHIS pratique pour les caractères double tion à mes besoins, à vrai dire). 
parues dans la rubrique “Trucs et hauteur, et l'autre pour le choix d'un 
Astuces” du n°28 d'AMSTAR-CPC fichier sur le catalogue de la dis- b 


GESTION BANCAIRE 6128 


LA GESTION DE COMPTE BANCAIRE INDISPENSABLE POUR VOTRE CPC 


RELEVES 









MODIFIER 





RACE SELECTION 







SUPPORT/SORTIE 


Quelques caractéristiques _: 


- Gère jusqu’à 10 comptes (banque, épargne, caisse...). 
- Codes secrets possibles pour chacun des comptes. 
- Saisie des opérations très simple, avec aide en ligne. 
- Fonction archivage, vous permettant de stocker année par année 
vos opérations, 
- Fonction TRIER, pour obtenir des listes d'opérations par dates 
croissantes. 
- À l'aide de POINTER, vous pouvez effectuer la liaison avec votre 
relevé de banque ‘officiel’. x a dt Me Ne eee 
- NOMBREUSES POSSIBILITES DE SORTIES : BON DE COMMANDE à retourner à 
- Recherche particulière répondant à 1 ou plusieurs critères‘ MICROLOGIC - B.P. 18 - 91211 DRAVEIL CEDEX 















No ORDRE/OBJET DEBIT CREDIT SOLDE 





Sn ss. 
ELEPHONE 


) L ELECTRICI FR 
AU mu MU gg * (E 
UE 406 à 


AE en von HR a 
[15 n 66] amour rest No 12M5678901 Occwp. 1x [Soldes 1237.44] 















parmi les suivants : -DATES DE DEBUT ET DE FIN par téléphone:(1) 69.21.61.65 / par minitel (1) 69.24.49.08 
-MONTANTS MINIMUM ET MAXIMUM ; 
-UN LIBELLE PARTICULIER A Prénom: 
- Liste de chèques pouvant répondre aux critères suivants: ‘ Adresse: SR nn M NA ee ce dif Re 
-DATES DE DEBUT ET DE FIN : Code postal: VIe ss nerese l ntie 
-NUMEROS DE DEBUT ET DE FIN. De commande GESTION BANCAIRE 6128 , au prix 
- Relevé complet -ENTRE DATES de 265,00 Frs. (port compris) 
-AFFICHAGE SOLDE REEL OÙ SOLDE De désire recevoir votre CATALOGUE GRATUIT 
OPERATIONS POINTEES. : présentant votre autres produits pour CPC. 
- Sorties sur ECRAN , IMPRIMANTE ou DISQUETTE. Je choisis de régler par :_ © Expire 
- UTILITAIRES IMPRIMANTE, ECRAN, COPIE D'ECRAN... | Ü CHEQUE CB. El) None ae, FIN 


Signat 
- UTILISE LES 128 Ko DE VOTRE CPC 6128. | [J MANDAT [] CONTRERBT (43 Fes) 





| CREBASIC.BAS 








UTC CELEECTESETEZELTCESCETECEEE 

28 'CREBASIC.BAS - Gintrateur de 

39 ‘ prograsnes d'application 

UTRLTETT TC TT ESC LIL LILI LIL 

58 IF fes=ÿ THEN RUN'ES. BAS 

69 F1-9:F2=ÿ:F3:9:F4=ftaa$="VAL(rep$(":bb$="))":cc$="ST 
R$(":d$="DATA ":inc=19:fret=ÿ 

79 DEF FNsb$(z)=MID$(STR$(z),2):DEF FNstrip$(z$)=LEFTS( 
2$+CHR$(32), INSTR((z$+CHR$(32)),CHR$(32))-1) 

89 DEF FNaa$(i)=MID$(aa$,1-(VAL(fc$(i))=9)*#4):DEF FNbb$ 
(i)=MID$(bb$,1-(VAL(fc$(i))=$)):DEF FNec$(i)=MID$(cc$,6 
+(VAL(fe$(i))}=1)#5):DEF FNdd$(i)=MID$(bb$,3+(VAL(fc$(i) 
1=1)) 

98 DIM encre(3),ligne$(12),ptr$(12),cx(12),cy(12),1c$(1 
2),fc$(12),var$(12),numlin({) 

199 ON ERROR GOTO 92ÿ 

119 EVERY 1999,1 GOSUB 958 

129 BORDER 9:1INK #,9:CLS:WINDOW#S,1,49,11,25:WINDOW#1, 1 
,48,1,18:INK 1,1:INK 2,17:INK 3,6:PAPER#1,D:PEN#1,3:CLS 
#1: PAPER D:PEN 2:CLS 

139 PRINTH{I,CHR$(128) ;STRINGS (38, 244) ;CHR$ (128) ;: FOR i= 
1 TO B:PRINT#{,CHR$ (247) ;STRINGS (38,9) ;CHR$ (246) ; :NEXT 

L'PRINTHI,CHR$ (128) ;STRINGS (38,245) ;CHR$(128); 

149 PRINT CHR$(158) ;STRINGS (38, 154) ;CHR$(156) ; :FOR i=1 

TO 13:PRINT CHR$(149) ;STRINGS (38,9) ;CHR$(149): :NEXT i:P 
RINT CHR$(147) ;STRINGS (38, 154) ;CHR$ (153) ; :WINDOWRS, 2, 39 
,12,24:PEN {CLS 

159 WINDOW#1, 2,39, 2,9:PAPERN1, 2:CLSH1 :LOCATEH 1, 1,2:PRIN 
T#1," J'AI PAS MAL DE BOULOT'":LOCATE#, 1,4:PRINT 
#1," ALLEZ DONC VOUS DETENDRE":LOCATE#1, 1, 7:PRINT 
#1," JE VOUS PREVIENDRAI QUAND J'AURAI FINI 

169 OPENIN file$:INPUT#9, pp,pmax,rmax:FOR i=1 TO pmax:! 
NPUT#S, index(i,@),index(i,1):NEXT i:CLOSEIN:file$=non$+ 
"DAT':OPENIN file$:p=1:prog$=non$+".BAS":OPENOUT progf 


179 IF index(p,@)=4 THEN FOR i=1 TO 6: INPUT#9, dat :NEXT 
i:FOR i=1 TO dat:FOR j=1 TO 16:INPUT#9, par :NEXT j:FOR j 
=9 TO 12:FOR k=1 TO 2:INPUT#9,par:NEXT k:FOR k=1 TO 5:1 
NPUTHO,tex$:NEXT k,j,i:G0TO 359 

189 nunlin(#)=1789+index(p,#)#22#inc 

199 FOR i=9 TO 3:INPUT#9,encre(i):NEXT i:INPUTRO, fef,fm 
ax 

299 nml=nunlin(#):1$=STR$(nml)+" ? Page"+STR$(p)+* ("4F 
Nsb$(fmax) 

219 IF fmax=1 THEN 1$:16+" Fenetre)" ELSE 1$=16+" Fenet 
res)" 


)LA 
>LB 
)LC 
>LD 
)WK 
>RQ 


)PG 


)FW 


LA 


LH 


DA 


UY 


A 


GA 





229 PRINT#9,1$ 

234 nml=nmitinc:1$=STR$(nml)+" "IF fef=1 THEN 1$=1$+"C 
LS:" 

249 1$=1$+"BORDER"+STR$(encre(ÿ))+":1INK 9,"+FNsb$(encre >MP 
(#))+": INK 1,"+FNsb$(encre(1))+": INK 2,"+FNsb$(encre(2) 
+": INK 3,"+FNsb$(encre(3)) 


>XE 
DEC 


258 PRINT#9,1$:f=t:numlin({)=numlin(f)+2#inc PT 
269 INPUT#9,n1,ftype, fead,ftitre,frep,fcentre,cadr,cg,c >MT 
d,ch,cb,ng,md,a,b,c:FOR i=8 TO 12:INPUTH9,cx(i),cy(i),1 
c$li),fe$(i),var$(i),ptr$(i),ligne$(i):NEXT i:lF ftypez 

2 OR ftype=3 THEN GOSUB 638 

279 IF frep=1 THEN F1:1 )QC 
289 IF ftype=2 THEN F2=1 )RV 
299 IF ftype=3 THEN F3: )RY 
399 IF ftype=4 THEN F4=1 'RR 
319 nml=nunlin(1):1$=STR$(nnl)+d$+FNsb$(f)+","+#FNsb$(nl DEV 
)+,"+FNsb$ (ftype)+","+FNsb$(fcad)+","+FNsb$(ftitre)+", 
"+FNsb$(frep)+","+FNsb$(fcentre)+","+FNsb$(cadr)+","+FN 
sb$(cg)+", "+FNsb$ (cd) 

329 1$=1$+","+FNsb$(ch)+", "+FNsb$(cb)+", "+ENsbé(mg)+"," DPF 
+FNsb$(a)+","+FNsb$(b)+","+FNsb$(c):PRINT#9,1$ 

339 ON ftype GOSUB 449,569, 688,739 )AU 
349 f=f+1:1F f<=fmax THEN numlin({)=numlin({)+5#inc:G0T >GP 
0 268 

358 p=pti:1F p<=pnax THEN 179 ELSE CLOSEIN:CLOSEOUT »XJ 
369 CLS#1:LOCATE#1,3,4:PRINTH1, "APPUYEZ SUR UNE TOUCHE KA 
QUELCONQUE" : LOCATEH1,9,7:PRINT#1, "POUR ARRETER L' ALARME 
MLENT -1,69,-1,1,69,1,1 

379 SOUND 1,199,129,15,,1 RE 
369 IF INKEY$="" THEN 379 ELSE PRINT CHR$(7);:CLSH#1 JUA 


399 PRINTHI:PRINT#1," MAINTENANT, C'EST À VOUS DE BOSSE >QB 
R !":LOCATEH1,7,4:PRINT#1, "DES QUE VOUS AUREZ LA MAIN": 
PRINT#1, "SAUVEGARDEZ VOTRE APPLICATION SOUS LE NOM DE V 
OTRE CHOIX, SUR L'AUTRE FACE DE LA DISQUETTE OÙ UNE AU 
TRE DISQUETTE"* 


499 GOTO 1538 )FA 
CURTIS IL >RF 
429 ? MESSAGE RG 
43 ? HYAHHAX >RH 
449 nml=nnitinc:IF nl=8 THEN IF ftitre:ÿ THEN 479 ELSE )DWY 
1$=STR$ (nml )+d$+CHR$(34)+1 igne$ (B)+CHR$(34) :PRINT#9, 1$: 
GOTO 478 

459 IF ftitre THEN i=ÿ ELSE i:i )YB 


469 jii=nl:j=i:GOSUB 588:VHILE i<nl:ii=nlinml=nnltinc:i: »BM 
j:GOSUB 594 :WEND 
479 nnl=nnitinc:1$=STR$(nml)+" RESTORE"+STRS(nunlin(1)) >WZ 





+":GOSUB 469" 

488 IF f=fnax AND frep=ÿ THEN 1$=1$+":CALL8&BB96" 

499 PRINT#9, I$:RETURN 

599 1$=STR$(nml)+d$+CHRS(34)+1igne$(i)+CHR$(34) 

519 WHILE i(ii:i=i+i 

528 1$=1$+", "+CHR$(34)+ligne$(i}+CHR$ (34) :WEND:PRINTHO, 
1$:RETURN 

539 ? ENXEXEKAENEENEX 

549 MENU HORIZONTAL 

558 KARER EME 

569 GOSUB 599:nml=nml+inc:1$=STR$(nml)+d$+1 ignes (9) 

579 FOR i=1 TO nl:1$=1$+","4CHR$(34)+1ignes (i)+CHR$(34) 
NEXT i:PRINT#O,1$ 

589 nnl=nnl+inc:1$=STR$(nml)+" RESTORE"+STRS (numl in(1)}) 

+":GOSUB 469:1F choix="+FNsb$(n1)+" THEN'+ptr$(nl)+" EL 

SE ON choix GOSUB "+ptr$(1):FOR i=2 TO nl-1:1$:1$+#","4p 

tr$(i):NEXT i:16=1$+":GOTO0"+STR$ (numlin(@)+inc):PRINT#9 

, I$:RETURN 

599 FOR i=1 TO nl-1:ptr=VAL(ptr$(i)):1F ptr>8 AND ptr<l 

99 THEN ptr=1799+index(ptr,#)x22*inc:ptr$(i)=FNsb$(ptr) 

648 IF ptr:@ AND LEFT$(ptr$(i),1)="#" THEN ptr$(i)=MID$ 
(ptr$(i),2) 

619 NEXT i:1F LEFT$(ligne$(i),1)="Q" THEN ptr$(i)=" MOD 

E t:END" ELSE ptr$(i)=" PAPER #f,9:CLS #f:RETURN" 

629 RETURN 

639 IF fret: THEN ret$="QUITTE" ELSE ret$= "RETOUR" 

649 nl:nlti:ligne$(nl)=reté:fret=fret+i:RETURN 

659 * HAXAKAXANENN 

669 ' MENU VERTICAL 

679 ? KHAN 

689 GOSUB 59Z:nml=nmltinc:[F ftitre THEN i:ÿ ELSE i=1 

698 jii=nl:j=i:GOSUB SS9:WHILE i<nl:iiznl:nal=nnltinc:i= 

j:GOSUB 5S9:NEND:GOSUB 588:RETURN 

700 ? HHHARAAHKAEAEREEX 

719 ? FENETRE DE SAISIE 

729 ? HARMAN 

739 GOSUB 818:nml=nmltinc:!F ftitre THEN i=4 ELSE i=1 

749 ji=nl:j=i:GOSUB 779:WHILE iénl:iisnlinni=nnltinc:i: 

j:GOSUB 779:WEND 

759 nal=nnl+inc:1$=STR$(nml)+" RESTORE"+STRS (nunl in({)} 

+":GOSUB 469":FOR i=1 TO nl:1$=1$+":rep$("+FNsb$(i)+")= 

+FNoc$(i)+var$(i)+FNdd£(i):NEXT i:PRINT#9,1$ 

768 nn=nni+inc/2:1$=STR$(nn)+" GOSUB 1189":FOR i=1 TO n 
lil6=16+"i"4var$(i)+"="4+FNaaé(i)+FNSb$(i)+FNbb$(i) :NEXT 
i:PRINT#9, 1$:RETURN 

779 IF i=ÿ THEN 1$=STR$(nml)+d$+CHR$(34)+lignes()+CHRS 
(34) ELSE I$=STR$(nmi)+d$+FNsb$(cx(i))+","+FNsb$(cy(i)) 

tt, "tlos(i)+","#fo$(i)+", T+CHRS(34)+] ignes ( i)+CHR$ (34) 

789 VHILE i<iiri=it{ 

799 1$=1$+","+FNsb$(cx(i)1+", "4FNsb$(cyli))+","4lc$(i)+ 

"ttfo$(i)+", "+CHR$(34)+ 1 ignes (i)+CHR$ (34) :WEND:PRINT#9 

, I$:RETURN 

819 FOR i={ TO nl:1F fe$(i)="A" THEN fc$(i)="g":GOSUB 8 

78 

829 IF fc$(i)="N" THEN fe$(i)="1":GO0SUB 849 

839 NEXT i:RETURN 

849 IF RIGHT$(var$(i),1)="6" THEN MID$(var$(i),LEN(var$ 
(i)),1)="î" 








a 


859 IF (RIGHT$(var$(i),1)<>"!" AND RIGHT$(var$(il,110" 
X") THEN IF LEN(var$(i)):6 THEN MID$(var$(i),6,1)="!" E 
LSE var$(i)=var$(i)ttt" 

869 RETURN 

879 IF LEN(var$(i))=6 AND RIGHT$(var$(i),1)1C"$" THEN M 
ID$(var$(i),6,1)="$" 

889 IF LEN(var$(i))<6 AND (RIGHTS(var$(i),1)<>"$" AND R 
IGHT$(var$(i),1)C"1" AND RIGHTS (var$(i),1)C>"4") THEN 
var$(i)=var$(i)+"$" 

898 IF LEN(var$(i))<6 AND (RIGHT$(var$(i),1)="1" OR RIG 
HT$(var$(i),1)="#") THEN MID$(var$(i),LEN(var$(i)),1)=" 
$" 

998 RETURN 

928 IF ERR=15 THEN ii=i-1:i=j:j=iiti: IF ERL:52 THEN RE 
SUME 599 ELSE IF ERL:799 THEN RESUME 774 

939 ON ERROR GOTO ÿ 


1539 PEN L:CHAIN MERGE"MODBASE", 1549, DELETE 888-969 
1549 1F Fi THEN CHAIN MERGE"MODREP", 1559 

1559 1F F2 THEN CHAIN MERGE"MODMENUH", 1569 

1569 IF F3 THEN CHAIN MERGE"MODHENUV", 1579 

1578 IF F4 THEN CHAIN MERGE"MODSAISL", 1589 

1589 CHAIN MERGE prog$, 1599 

1599 MEMORY &A5D3:SYMBOL AFTER 256: ERA, progs :DELETE 15 
49-1598 


CREECRAN.BAS 


LA "RARE ERMENEENNENENRIEN 

29 ! CREECRAN. BAS 

'param(trage des Pages-Ecran 

MZTEPTTS TITI TITI TITI TES 

59 ! 

DR CTETEIE FETES 

" PROGRAMME PRINCIPAL 

LE LECELELE PPT ETE PTE 

99 IF fes=ÿ THEN RUN'ES. BAS 

199 DEF FNsb$(z2)=MIDS(STRS(2),2):DEF FNx=-({+tfcad(f)/2) 
E(U=D)-ng(f)k(W)9):DEF FNy=-2k(w=0)-(cv(f)+(u-1)#itl)#1 
W)D):DEF FNbit(f)=f-(f:3)-(f=4)x4:del$=CHR$(8)+CHRS(16) 
: four =Ÿ:PAPER#6, 9: PENKG, 2 

119 EVERY 1909,1 GOSUB 578 

129 file{$=non$t",DAT":file2$=nom$+".BAK":1F fsav THEN 
iREN, file26,fileis 

139 OPENOUT filei$:1F fupd THEN OPENIN file2$:1F fupd<3 
THEN fex=8:FOR i={1 TO fmax:fex=fex OR FNbit(i):NEXT i 
149 MODE L:INK 1,17:0N fupd GOTO 358,369, 378 

158 IF fsav THEN OPENIN files: INPUT#9, pp, paax, rmax:FOR 
i=1 TO pmax: INPUT#9, index(i,9),index(i, 1):NEXT i:CLOSEI 
N:OPENIN file2$:GO0T0 179 ELSE BORDER B:INK 9,8:INK 1,1: 
ENK 2,11:INK 3,15 

169 iw=f:fh=1:1h=1:chh=24:cbh=25:cgh=2:fe=2:rep$="":G0S 
UB 629:paax=rep:rmax=rep:FOR i=1 TO pmax:index(i,@)=i:N 

EXT i 


RF 


>)2K 
)YB 


XKT 


>FP 


)2E 
)TA 
AA 


NT 
>TD 
)LN 
)TF 
WE 
HV 
KJ 
»KC 
KL 
WE 
KF 


)LA 
»LB 
)LC 
»LD 
)LE 
UF 
)LG 
>UH 
WP 
>MV 


TV 
)2C 


)CV 


KF 
»GC 


JWA 


179 FOR p=ppti TD paax 

189 CLS:BORDER #:1INK D,8:INK 1,15:INK 2,2:INK 3,17 

199 fcor=f:iw=1:fh=9:GOSUB 628:LOCATE#, 15,2:PRINT#1, US 
ING"#A" ;p; : PRINT, STRINGS (8,9) ;US ING"H#"; index(p,8); 
289 IF fupd=2 THEN debi=fmax+!:fmax=rep:G0TO 239 

218 iw=2:fh=1:1h=1:chh=24:cbh=25:cgh=2:fc=2:rep$="":G0S 
UB 629:1F rep>4 THEN PRINT CHR$(7); :GOTO 218 ELSE fnax- 
rep 

228 GOSUB 4299:deb1=1 

238 FOR f=debi TO fmax 

249 iw=3:fh=9:GOSUB 628:LOCATE#, 22,2:PRINTH ,f;:iw=4:f 
h=2:1h={:chh=24:cbh=25:cgh=2 

254 GOSUB 628 :PAPER#2, 2:CLS#2:LOCATE#2, 2, 3:PENH2,B:PRIN 
T#2,fen$(iw, iop); 

268 IF f>1 AND (choix=2 OR choix=3) THEN FOR j=1 TO f-1{ 
:IF ftype(j)<2 OR ftype(j)>3 THEN NEXT j ELSE IF j<f TH 
EN PRINT CHR$(7);:fh=8:G0T0 258 

278 ftypelf)=choix:0N choix GOSUB 419, 399,419, 419:NEXT 
f 

288 GOSUB 498:1F exit=1 THEN exit=#:G0T0 3389 

298 IF fupd=1 THEN CLOSEOUT:GOTO 348 

388 IF fupd>1 THEN 338 

319 IF fcor=1 THEN 188 ELSE NEXT p 

328 p=p-1 

339 CLOSEOUT :p=MAX(p, pp):GOSUB 4969 

348 1=2:fupd=f:CHAIN"ES. BAS", 1128 

358 iw=25:fh=4:GOSUB 629:p=pupd:rep=faax:GOSUB 4298: deb 
2=1:fin=p-1:G0SUB 4198:GO0SUB 4259:FOR f=1 TO fmax:GOSUB 
2128:NEXT f:debi=1:fcor=#:G0T0 289 

369 iw=25:fh=9:GOSUB 628:p=pupd:rep=ffsax:GOSUB 4299:de 
b2={:fin=p-1:GOSUB 4198:G0SUB 4259:FOR f=1 TO fnax:GOSU 
B 2129:NEXT f:G0TO 188 

379 iw=25:fh=9:GOSUB 628:p=pupd:deb2=1:fin=p-1:GOSUB 41 
98:FOR i={ TO 6:INPUT#9, dat:NEXT i:FOR i=1 TO dat:FOR j 
=1 T0 16:INPUT#9,par:NEXT j:FOR j=8 TO 12:FO0R k=1 TO 2: 
INPUT#9, par :NEXT k:FOR k=1 TO 5:INPUTH9, tex$:NEXT k, j,i 
:GOTO 189 


419 iw=5:fh=3:G0OSUB 628:1F rr=79 THEN fcad(f)=2 ELSE fc 

ad(f)=$ 

429 iw=6:fh=8:G0SUB 629:1F rr=79 THEN ftitre(f)=3 ELSE 
ftitre(f)=# 

439 IF ftype(f)>1 THEN 479 

448 iw=7:fh=9:GOSUB 628:1F rr=79 THEN frep(f)={:RETURN 

ELSE frep(f)=ÿ 

459 iw=8:fh=8:G0SUB 629:1F rr=79 THEN fcentre(f)=1:RETU 

RN 

469 iw=9:fh=9:G0SUB 629:1F rr=79 THEN fcentre(f)=2 ELSE 
fcentre(f)=# 

479 RETURN 


498 f=debl:1F fupd=9 OR fupd=3 THEN encre(ÿ)=ÿ:encre(1) 
=13:encre(2)=6:encre(3)=2 

588 IF fupd<>1 THEN FOR i=debi TO fax: FOR j=9 TO 2:col 

or(j,i)=j+{:NEXT j,i 

519 CLS:GOSUB 394$:nmrf=8:ner$=FNsb$(debl):IF fupd:ÿ OR 
fupd=3 THEN fex=ÿ 


)QX 
RY 
XKU 


)TZ 
LC 


YY 


+ 


528 iw=i8:fh=4:1h=1:chh=23:cbh=24:cgh=2:GOSUB 629:CLS#6 >BZ 


539 ON choix GOSUB 1379, 1459, 2169, 2349, 3658, 3989 
548 IF fcor>8 THEN RETURN ELSE GOTO 528 


GARBAGE 

578 cur=ABS(fcur=f)*x2:PRINT CHR$(21);FRE("") ;CHR$(6) ;CH 
R$lcur); 

589 RETURN 

598 * RARMERRREMNERRIEEEENEN 

699 ? AFFICHAGE DES FENETRES 

618 ? ARAENEENEANENNENNNNR 

628 uf=fen(iu,#):11=fen(iw, 1):wfcad=fentiu,2):wftype=fe 
niv, 3):wfrep=fen(iw,4):cad=fen(iw,5):cg=fen(iu,6):cd=f 
en(iw,7):ch=fen(iw,8):cb=fenliw,9):ag=fen(iv, 18) 

638 a-fen(iw,11):b=fentiw,12):c=fentiw,13):wcx=fen(iw,! 
4):wcy=fen(iu, 15):wlc:fen(iw, 16) :PAPER#wf,a:PENNwf ,b:WI 
NDOW#wf,cg,cd,ch,cb:CLStuf:1F wfcad=2 THEN GOSUB 718 
648 


668 


68ÿ ? -------------. 
799 ? 
719 hb=cb-ch-1:gd=cd-cg-1:LOCATEHuf, 1,1 

729 PRINT#uf,CHR$ (box (cad, 1)) ;STRINGS (gd, box(cad, 2));CH 
R$(box(cad,3)); 

739 FOR i=1 TO hb:PRINT#uf, CHR$(box(cad,4));STRINGS (gd, 
9) ;CHR$(box(cad, 5) ); :NEXT i 

749 PRINTRuf,CHR$(box(cad,6));STRINGS (gd, box (cad, 7) ) ;CH 
R$ (box (cad, 8) ) ; :RETURN 

758 


179 ? 
788 yy=1-(wftype>1):y=yytwfcad/2:FOR i=1 TO 11:LOCATER 
f,ag,y:PRINTHuf,fen$(iw,i);:y=y+yy:NEXT i:1F fh THEN GO 
SUB 4579 

798 IF ufrep=1 THEN GOSUB 1914 

898 IF wftype>1 THEN wftype=wftype-2:0N uftype GOSUB 18 
74, 1169 

819 RETURN 

829 * HRRARENEREEEENX 

839 ? Menu Horizental 

849 ? NAEPENNENRENNNEE 

858 sp=1:MID$(fen$(iw,1),3)=nnr$:1F nmrf=8 THEN iop=2 E 
LSE GOSUB 959 

868 hpos(1)=mg:lign$=CHR$(39)+fen$liw,1):1F fh THEN GOS 
UB 4579 

879 FOR j=2 TO 1l:lign$=lign$+SPACES(sp):hpos(j)=LEN(Ii 
gn$):lign$=lign$tfen$(iw, j):NEXT j:PEN#wf,c:PRINT#wf, li 
gn$; 

888 PENXwf,b:GOSUB 938:PEN#uf,c 

899 r=9:WHILE r©13:GO0SUB 4369:GOSUB 938 

988 FOR j=5 TO 9:1F r<com(j) THEN NEXT j 

919 ON j-4 GOSUB 979,949,959, 949,959, 968 

928 PENHuf,b:GOSUB 938:PEN#uf,c:MEND:choix=iop:nmrf=i:R 
ETURN 

938 LOCATEHuf, hpos(iop),1:PRINT#uf, fen$(iu, iop) ; : RETURN 
948 iop=iop-l1x(iop=1)-{:RETURN 





PE 
)F2 
>TA 
)TB 
DLF 


»2J 
»TE 
RG 
RH 
)VH 


AC 
HG 
>GZ 
>FT 
MN 


)FA 
»BZ 






95ÿ iop=ioptiop#(iop=11}+1:RETURN )EP 
964 PRINT CHR$(7); HV 
97 RETURN >AB 
CCT ARRETE CTITCTE ECTS ET >TH 
399" R{ponse par D/N attendue )TJ 
UTC AMELLL EEE EEE CEE EPS EE TENTE >XD 


1919 GOSUB 4368:1F r=79 THEN PRINT&uf,"OUl";:rr2r ELSE )UQ 
IF r=78 THEN PRINT#uf, "NON"; :rr2r ELSE PRINT CHR$(7)::G 
OTO 1918 


1929 GOSUB 4369:1F r=13 THEN RETURN ELSE IF r=127 THEN )TC 
r$="":FOR i=1 TO 3:PRINTHuf, del$::NEXT i:GOTO 1919 

1938 PRINT CHR$(7);:GOTO 1929 XF 
1949 * poeme >XH 
1959 ‘ Menu Vertical XJ 
1969 ? HRRAENEMNENRE >XK 


1978 jop=l:y=yytwfcad/2:gxv=16%(cg+ag)-38:gyv=468-16%(c 
h+y) 


>Hh 


1989 GOSUB 1129:r=8:WHILE rC>13:GO0SUB 4368:GOSUB 1124 XL 
1999 FOR j=5 TO 9:1F rcom(j) THEN NEXT j HF 
1199 ON j-4 GOSUB 979,948,959, 949,959, 969 >FB 
1119 GOSUB 1129:WEND:choix=iop:RETURN )HY 


1128 long=12+LEN(fen$(iu, iop))x16:MOVE gxv, gyv-32*iop, a 
»1'DRAUR long, :DRAUR 8,-26:DRAUR -long,Z:DRAUR 8,26:RE 
TURN 


>UG 


1139 ‘ RAR HEMANEENENNNNE >XH 
1149 ? Fenetre de Saisie x] 
1159 ? HARARRNEURENENEURR >XK 
1169 GOSUB 1339:GO0T0 1189 )TY 
1178 PRINT CHR$(7);:fbip=8 > 
1189 GOSUB 4369 XF 


1199 1F r=127 THEN IF POS(#uf)=wcx THEN 1174 ELSE PRINT 
#wf,CHR$S (24) ;del$;CHR$ (24) ;:r$="":GOTO 1278 

1299 1F r=13 THEN ON fc GOTO 1289, 1299, 1389, 1389 

1219 di=INSTR("#123456789", r$) : d2=INSTR("ABCDEFGHIJKLMN 
OPORSTUVWXYZ",r$):0N fc GOTO 1229,1239, 1249, 1249 

1229 IF r€65 AND r€>78 THEN 1179 ELSE 1259 

1239 IF di:ÿ THEN 1179 ELSE 1259 

1249 IF di=ÿ AND d2=ÿ THEN ON fc-2 GOSUB 1319,1329:IF f 
bip THEN 1178 


)JY 


MX 
»XG 


»GH 
>XB 
JU 


1259 IF POS(Hwf)=wcxtwlc THEN 1178 >B4 
1269 IF fc=4 THEN r$=LOMER$(r$) DYL 
1279 rep$=LEFT$(rep$, POS(#uf)-ucx)+r$:PRINTHuf,CHRS(24) DHR 
7$;CHR$(24);:GOTO 1189 

1289 IF rep$="" THEN 1179 ELSE RETURN >D4 


1299 rep=VAL(rep$):1F rep=ÿ THEN rep$="":G0SUB 1339:GO0T 
0 1179 ELSE GOSUB 133#:RETURN 

1398 IF rep$="" THEN 1179 ELSE GOSUB 1339:RETURN 

1319 IF r@35 THEN fbip=:1:RETURN ELSE RETURN 

1328 IF INSTR("!%$",r$)=9 THEN fbip=1:RETURN ELSE RETUR 
N 


>NV 


)PX 
RR 
BR 


1339 LOCATE#wf, ox, wcy:PRINTtuf,CHR$(24); SPACE (wlc):;ST TZ 
RING$(wlc,8) ;rep$;STRINGS(LEN(rep$),8) ;CHR$(24) ; :RETURN 
1348 * MAREANENNENMNENNEX )YA 
1359 * Nuntro de Fenetre »YB 
1369 ? HAHHHENEAEUIENER >?C 
1379 WINDOWK?,3,4,25,25:PAPER#7,a:PEN#7,b'fh=5:1h=2:chh DDY 
:22:cbh=24:cgh=2:GOSUB 4579:G0TO 1399 

1388 PRINT CHR$(7); )NE 
1399 GOSUB 4369:1F r=224 THEN f=VAL(nmr$):CLS#6:RETURN AM 





Me R. 


1499 r=VAL(r$):1F r=ÿ OR rofmax THEN 1388 >GA 
1419 nnr$=r$:PRINTH7,CHR$ (39) ;r$; :GOTO 1399 )LY 
1429 ? xxxxuxx >XK 
1438 ' Fenetre )YA 
1449 ? xxxxuxE )YB 


1459 CLS:FOR ii=1 TO fmax:IF (fex AND FNbit(ii)) AND ii HR 
Of THEN GOSUB 2994 

1469 NEXT ji:GOSUB 4489:1F (fex AND FNbit(f)) THEN gg=n DEL 
g(f)-1-fcad(f)/2:dd=cd(f)-cg(f)+1-md(f)-fead(f)/2:GOSUB 
1638 :RETURN 


1479 IF ftype(f)=2 THEN cg(f):1:cd(f)=48:ch(f)=1:cb(f)= DAL 
1:GOSUB 1639 :RETURN 

1489 gg=ABS(ftype(f)>1):dd=gg:1F ftypetf)<>2 THEN nl(f) »DJ 
={ 

149ÿ ? -------------- >YG 
1599 ? Positionnement )XJ 
1519 ? -------------- >XK 
1528 PEN b:fh:=6:1h=2:xh=16:yh=63:G0SUB 4588:PRINT CHR$( DFJ 


38) ;:CURSOR 1,1:four=1 
1538 r=#:NHILE r<>13:GO0SUB 4364:1F VPOS(##)>1 AND r=24# >Z2 
THEN PRINT CHR$(1:,; 


1549 IF VPOSCKÿ)<25 AND r=241 THEN PRINT CHRS(18); RN 
1559 IF POS(##)>1 AND r=242 THEN PRINT CHR$(8); NF 
1569 IF POS(#Y)<4ÿ AND r=243 THEN PRINT CHR$(9); >NA 
1578 WEND:cg(f)=POS(#8) :ch(f)=VPOS(#8):PRINT CHR$(38):C >VL 


HR$(2);:fcur=8 
1584 cd(f)=cg(f)+5tfcad(f)-(ftypelf))1)#2:1F cd(f)248 T >GN 
HEN dif=cd(f)-4ÿ:cd(f)=49:cg(f)=cg(f)-dif 


1599 GOSUB 458$:GOSUB 2129:cb(f)=cbain(f)+ch(f):1F cb(f >TY 
))25 THEN dif=cb(f)-25:cb(f)=25:ch(f)=ch(f)-dif 

1699 ? --------------.- >XK 
1619 * Position/Dimensions/Marges )YA 
1629 ' -----------.--"."..". >YB 
1639 fh=7:xh={6:fex=fex OR FNbit(f):1F ftype(f)=2 THEN )TQ 
inax={9:1h=#:yh=31:GOSUB 4589:G0T0 1658 ELSE inax=18:1h 
=3:yh=79:G0SUB 458ÿ 

1649 GOSUB 294ÿ JWK 
1659 r=Q:WHILE r<)224 PF 
1669 ii=f:GOSUB 2998 PT 
167$ GOSUB 4368 >XK 
1689 FOR i=6 TO imax:IF r(>com(i) THEN NEXT i JM 
1698 IF idimax THEN PRINT CHR$(7);:G0T0 1679 »LC 
1799 GOSUB 2198:0N i-5 GOSUB 1859,1879, 1899, 1919, 1799,2 DYT 
919, 2020, 1939, 1979, 1739, 1769, 1899, 1839 

1719 IF iC19 THEN 1669 ELSE GOSUB 2264 >CG 
1728 WEND:CLS:RETURN RJ 
1739 IF cb(f)=cbnin(f)+ch(f) THEN PRINT CHR$(7);:RETURN DAE 
1749 IF ftype(f)=1 AND cb(f)-ch(f)ti-fcad(f)-ftitre(f)> >TP 
nl(f) THEN cb(f)=cb(f)-1:RETURN 

1759 cb(f)=cb(f)-(1-(ftype(f)>1)):nl(f)=nl(f)-{:RETURN AH 
1769 IF cb(f)>=25+(ftype(f)>1) THEN PRINT CHR$(7)::RETU )CN 
RN 

1779 IF ftype(f)=4 THEN IF nl(f)<18 THEN nl(f)=nl(fi+{: DTU 
cb(f)=cb(f)+2:RETURN ELSE RETURN 

1788 cb(f)=cb(f)+(1-(ftype(f)>1)):1F nl(f)<12 THEN nl(f DJT 
)=nl(f)+1 

1798 RETURN >GA 


1889 1F cd(f)=cg(f)+fcad(f)+gg+dd THEN PRINT CHR$(7);:R FF 
ETURN 


1818 IF cdtf)=cgtf)-(ftype(f)=11 THEN PRINT CHR$(7);:RE 
TURN 

1829 cd(f)=cd(f)-1:RETURN 

1839 IF cd(f)=49 THEN PRINT CHR$(7); ELSE cd(f)=cd(f)+i 
1849 RETURN 

1859 IF ch(f)>{ THEN ch(f)=ch(f)-!:cb(f)=cb(f)-1 ELSE P 
RINT CHR$(7); 

1869 RETURN 

1879 IF cb(f)(25 THEN ch(f)=ch(f)+{:cb(f)=cb(f)+1 ELSE 
PRINT CHRS$(7); 

1889 RETURN 

1899 IF cg(f)>1 THEN cg(f)=cg(f)-l:cd(f)=cd(f)-1 ELSE P 
RINT CHR$(7); 

1994 RETURN 

1919 IF cd(f)(4ÿ THEN cg(f)=cg(fit{:cd(f)=cd(f)+1 ELSE 
PRINT CHRS(7); 

1928 RETURN 

1938 GOSUB 2199:WHILE INKEY(52))-1 

1949 IF INKEY(8):9 THEN IF gg>ABS(ftypelf)>1) THEN gg=g 
g-1:GOSUB 2964 ELSE PRINT CHR$(7); 


1959 1F INKEY(1)=0 THEN IF ne(f)>2 THEN gg=gg+1:G0SUB 2 ) 


869 ELSE PRINT CHR$(7); 

1969 CALL &BB96:WEND:GOSUB 2189: RETURN 

1979 GOSUB 219B:WHILE INKEY(61)2-1 

1989 IF INKEY(8):9 THEN IF nc(f)>2 THEN dd=dd+{:GOSUB 2 
969 ELSE PRINT CHR$(7); 

1999 IF INKEY(1):9 THEN IF dd>ABS(ftypelf)>1) THEN dd=d 
d-1:GOSUB 2969 ELSE PRINT CHR$(7); 

2999 CALL &BB96:WEND:GOSUB 21B9:RETURN 

2819 dif=cb(f)-ch(f):ch(f1=(24-dif)\2+1:cb(f)=ch(f)+dif 
:RETURN 

2929 dif=cd(f)-cg(f):cg(f)=(39-dif)\2+1:cd(f)=cg(f)+dif 
:RETURN 


2849 WINDOWK7, 24,39,2,9:PEN#7,c:PAPER#7,D:PRINT#7, CHR$( 
38) ;CHRS (159) :STRINGS (14, 154) : CHR$S (156) :CHRS(149) : "INFO 
FENETRE ‘innr$;CHR$(149);CHR$ (149); 
2859 PRINT#7," LIGNES :";STRINGS(5,9);CHR$ (149) ;CHRS(14 
9);" Nombre : ";CHR$(149);CHR$(149);" Longueur: 
",CHR$(149) ;CHR$(149) ; "Largeur Marges";CHR$(149); CHR$(1 
49)" G: D:":STRINGS (4,9) ;CHRS(149) :CHR$(147) ;STRIN 
G$(14,154) :CHR$(153); 
2869 IF ftype(f)=2 THEN RETURN ELSE ng(f)=ggtfcad(f)/2+ 
1:md(f)=cd(f)-cg(f)-dd-fead(f)/2+1:nc(f)=mdtf)-mg(f)+1 
2878 LOCATE#7,13,4:PRINT#7,USING"##" nl (f) ; :LOCATER#7, 13 
,5:PRINT#7,USING"##" sncf): :LOCATE#7,6, 7:PRINT#7, USING" 
HA" sgg; :LOCATE#7, 12, 7:PRINT#7, USING"##" ; dd ; : RETURN 


2998 cgg=(ceg(ii)-1)#16:cgd=cd(ii)#16-{:cgh=399-(ch(ii)- 
1)#16:cgb=499-cb(ii)*16:long=cgd-cggthaut=cgh-cgb 

2199 MOVE cgg,cgh,3,1:DRAUR long, B:DRAWR 9,-haut:DRAWR 
-long,S:DRAUR 8, haut :RETURN 


2129 cbmin(f)=1+fcad(f)tftitre(f)+(ftype(f)=1)-(ftype(f 
1=3)#3-(ftypetf)=4)#2:cv(f)=1tfead(f)/2-(ftype(f)>11+ft 
itre(f):RETURN 

2139 ! n#x#4 

2149 ' Cadre 

2159 ' N#H#X 


)YA 








a. 


2169 IF fcad(f)=ÿ OR ftypetf)=2 DR (fex AND FNbit(f))=8g ) 


THEN PRINT CHR$(7) ; :RETURN 
2178 fh=8:1h=2:chh=21:cbh=24:cgh=1:GOSUB 457S:CLSH#6:G0S 
UB 229ÿ 


2189 f=VAL(nmr$):r=@:WHILE r€>224:G0SUB 4369:r1=INSTR(" 


123456789ABCDEF",UPPER$(r$)):1F r©224 THEN IF ri<i THE 
N PRINT CHR$(7); ELSE cadr(f)=VAL("&"+r$):GOSUB 2289 
2198 WEND:CLS:RETURN 

2299 uf=f:PEN#uf,color(t,f):cad=cadr(f):bh=cb(f)-ch(f)- 
l:gd=cd(f)-cg(f)-1 

2218 IF ftitre(f)=ÿ THEN hb=bh:LOCATERuf, 1, 1:GOSUB 729: 
RETURN 

2228 IF ftitre(f)=3 THEN hb=1:LOCATE#wf, 1, 1:GOSUB 728:h 
b=bh-ftitre(f):GOSUB 729:RETURN 


2239 WINDOW#f,cg(f),cd(f),ch(f),cb(f):PAPERKf, color (9, f 


):CLSKf:IF cadr(f))9 THEN GOSUB 2298 

2249 IF ftype(f)>2 THEN itl=1-(ftypelf)©1) 

2259 IF ftype(f)=2 THEN chaine$=""inl={iuztimg(f)=1:cv( 
fhztinc(f)}=33:md(f)=33 

2268 PEN#f,color(2,f):FOR j=ÿ TO nl(f):1F ligne$(j,f)=" 
" THEN NEXT j 

2278 IF jC=nl(f) THEN ON ftypel(f) GOSUB 2459,2429,2458, 
245ÿ 

2289 RETURN 

229g FOR f=1 TO fmax:IF (fex AND FNbit(f)} THEN GOSUB 2 
238 

2389 NEXT f:RETURN 

2319 ? x4X44 

2329 ' Texte 

2338 ? XH4XX4 

2348 1F (fex AND FNbit(f))=@ THEN PRINT CHR$(7) ; : RETURN 


2358 IF ftypetf)©2 THEN itl=1-(ftypetf)©1):nc(f)=md(f 
l-ng(f)+i 

2368 ON ftypetf) GOSUB 2379,2399,2379, 2374 :CLS: RETURN 
2379 fh=9:1h=4:chh=19:chh=24:cgh=1:GOSUB 4579:CLSH#6:GO0S 
UB 2239:1F ftitre(f)=3 THEN w=ÿ ELSE w=1 

2389 nl=nl(f):GOSUB 3929:RETURN 

2398 fh=19:1h=3:chh=2:cbh=6:cgh=1:GOSUB 4574:CLS#6 : GOSU 
B 2239:G0SUB 3928 :RETURN 


2419 ? Affichage type 2 
2429 GOSUB 3599:LOCATERF, 1, 1:PRINT#f, chaine$;CHR$(13);: 
RETURN 


2449 * Affichage type {, 3 ou 4 

2459 ff=f:IF ftitre(f)<3 THEN 2479 

2469 w=g:GOSUB 2539 

2479 FOR w=1 TO ni(f):GOSUB 253S:NEXT w:RETURN 

2499 Centrage 

2599 xx=(ed(f)-cg(f)+{-LEN(Iigne$(u,f)))\2:LOCATERFÉ,1+ 
foad(f}/2,FNy:PRINT#ff,SPC(ux-foad(f)/2);ligne$(w,f);:R 
ETURN 


2528 Print ligne 
2539 LOCATE#ff, FNx, FNy:PRINT#ff, Ligne$(u, f); :RETURN 


2559 M{morisation ligne 


>YB 
YC 
BG 
)NQ 
Qu 
»YG 
)YH 
>ZX 


)YA 
>YB 
>AK 
»YD 
)YE 


2569 ligne$(w,f)=chaine$ :RETURN 

2588 ? Justification 

2598 deb={:WHILE MID$(chaine$, deb, 1)=CHR$(32) : deb=deb+1 
:WEND: j=2:h=ÿ 

2698 k=deb-)j 

2619 k=INSTR(k+j,chaine$,CHR$(32)):1F k>8 THEN chaine$= 
LEFT$(chaine$, k)+CHR$(32)+MID$ (chaines, k+1) :h=h+1 :GOTO 
2649 ELSE 263ÿ 

2628 GOSUB 2568:LOCATE mg(f),FNy:PRINT chaines; :RETURN 
2638 IF h=ÿ THEN 2629 ELSE j=j+1:G0T0 2699 

2648 1F LEN(chaine$)(nc(f) THEN 2618 ELSE 2624 

2669 ’ Entrie param)tres menu hor. 

2679 v={:opt$=chaine$:1F LEFT$(opt$,1)=" * OR RIGHTS (op 
t$,1)=" * THEN GOSUB 3619:RETURN ELSE FOR ii=2 TO 5:kk= 
INSTR(chaine$, SPACE$(ii)):1F kkC># THEN GOSUB 3618:RETU 
RN ELSE NEXT ii 

2689 k=INSTR(opt$,CHR$(32)):1F k=ÿ THEN 2729 

2698 ligne$(v,f)=LEFT$(opt$,k-1) 

2798 opt$=MID$(opt$,k+i):v=v+1 

2718 GOTO 2688 

2728 ligne$(v,f)=opt$inl(f)=v 

2739 dif=49-(LEN(chaine$)+7):1F dif>9 THEN IF dif>=nl(f 
1 THEN sp=itdifinl(f):mg(f)={+(dif MOD nl(f))\2 ELSE sp 
slimg(f)={+dif/2 

2749 IF dif=8 THEN sp={ing(f)=1 

2758 ligne$(9,f)=FNsb$(sp) 

2769 mhpos(i)=mg(f):1lign$=ligne$(1,f):FOR j=2 TO nl(f) 
11lign$=11ign$+SPACES(sp):mhpos(j)=LEN(llign$)tmg(f):11 
ign$é=lligné+ligne$(j,f):NEXT j:sng=ng(f):IF ch(f)=25 TH 
EN CLS:WINDOW 1,49,24,24 

2779 CLS:LOCATE ng(f),1:PEN c:PRINT llign$::FOR w=1 TO 
nl(f):PEN b:LOCATE mhpos(w),1:PRINT ligne$(u, f) ; :GOSUB 
2829:PEN c:LOCATE mhpos(u),1:PRINT ligne$(w,f)::NEXT w 
2788 IF ch(f)=25 THEN PAPER 9:CLS:PAPER a:RETURN ELSE R 
ETURN 

2895 Pointe sur ..,.. 

2619 IF w=ÿ THEN ff=9:GOSUB 25$:RETURN 

2828 iw=1{:fh=4:1h=@:chh=11:cbh=11:GOSUB 629:iu=12:fh=8 
tsiop=iop:snarf=nmrf:snmr$=nmr$:iop=g:nmrf={:nmr$="":re 
p$=ptr$(w,f):GOSUB 62#:CLS#7:0N choix GOSUB 2869,2879 
2838 CLS#6:1F ftypelf)<>2 THEN CURSOR B:fcur:g:WINDOW S 
WAP #,f:GOSUB 2238:w=sw:WINDOW SWAP 9, f:CURSOR 1,{:fcur 
:{ 

2849 ptr$(u,f):rep$:PAPER#5, D:CLS#5:PAPERHS, a 

2859 iop=siopinmrf=snnrf :nmr$=snmr$ : RETURN 

2869 iw=13:fco=2:fh=11:1h=1:cbh=12:G0SUB 629:RETURN 

2879 iu=14:fe=3:fh=12:1h=4:cbh=15:GOSUB 629:RETURN 

2898 ? Paranltres champs 

2998 IF w=ÿ THEN ff=9:GOSUB 2599:RETURN 

2919 CURSOR S:fcur=f:GOSUB 2988 

2929 CLS#5:iw={5:fo=2:fh={1:1h={:chh=23:cbh=24: IF Ic$(w 
,f)="" THEN rep$=SPACES(2) ELSE rep$=lc$(w,f) 

2939 GOSUB 628:1F VAL(rep$)>nc(f) THEN PRINT CHR$(7);:G 
OTO 292ÿ 

2949 GOSUB 3589:]c$(w,f)=rep$:GOSUB 2989:PEN color(i,f) 


re. 


»2E 


)Q7 
>RR 
)WD 
XF 


)ZA 


>ZB 
>GQ 
>AG 


NF 


>JK 


>LJ 





!LOCATE cx(u,f),cy(w,f):PRINT CHR$(143);STRINGS (VAL(Ic$ 
(u,f))-1,219);:PEN color(2,f):iw=16:fo=i:fh=13:IF tc$(w 
,f)5"* THEN rep$=SPACE$(1) ELSE rep$=tc$(u,f) 

2959 GOSUB 628:tc$(u,f)=repf$ 

2968 iw={7:fe=4:fh=14:1h=4:chh=29:cbh=24:1F var$(w,f)=" 
* THEN rep$=SPACES(6) ELSE rep$=var$(w,f) 

2978 GOSUB 629:1F VAL(rep$)>4 THEN PRINT CHR$(7) ; :GOTO 
2969 ELSE var$(u,f)=rep$:PAPER#S, 9: CLSH5:PAPERYS, a: CLS 
6:WINDOW SWAP 9,f:G0SUB 223ÿ:u=sw:WINDOW SWAP 8, f :CURSO 
R {:four={:RETURN 

2989 IF nc(f)-LEN(ligne(w,f))-1CVAL(Ic$Cw,f)) THEN cx 
u,f)=mg(f)icy(w,f)=1+FNy ELSE cxtw,f)=mg(f)+LEN(Iignes( 
v,f))+{:cy(w, f)=FNy 

299ÿ RETURN 

3819 Entries au clavier 

3829 WINDOW SWAP 9,f:GO0SUB 3698:PEN color(2,f) 

3839 IF wnl(f) THEN 3989 ELSE CURSOR 1,1:four=1:r$=1INK 
EY$:1F r$="" THEN 3938 ELSE r=ASC(r$) 

3949 IF r>31 AND r<126 THEN GOSUB 3129:G0T0 3938 

3858 FOR i=1 TO 19:1F r<ocom(i) THEN NEXT i 

3869 ON i GOSUB 3339, 3368, 3258, 3299, 3519, 3490, 3469, 3179 
, 3218, 3899 

3079 1F rO224 AND r(6 THEN 3938 

3989 CURSOR 9:fcur=ÿ:WINDOW SWAP 9,f:1F ftype(f)=2 THEN 
ng(f)=smg 

3899 RETURN 

3119 '  Caract}res 

3129 IF w)9 THEN ne=nc(f) ELSE nc:cd(f)-cg(f)-foad(f)+i 
3139 IF LEN(chaine$)=nc THEN PRINT CHR$(7) ; :RETURN 

3149 xx=POS(#9) :chaine$=LEFT$ (chaines, POS(#9)-FNx)+r$+M 
ID$(chainef$, POS(#9)+1-FNx) :LOCATE FNx,FNy:PRINT chaines 
ÿ:LOCATE xx+1,FNy:RETURN 

3168 ' Gauche 

3178 IF POS(KZ)=FNx AND VPOS(#G)=FNy THEN PRINT CHR$(7) 
?:RETURN 


3189 PRINT CHR$(B) ; :RETURN 
3199 ?-----.-....... 
3299 * Droite 


3219 IF POS(#@)=LEN(chaine$)tng(f) OR VPOS(KZ)=1+FNy TH 
EN PRINT CHR$(7); :RETURN 


3229 PRINT CHR$(9) ; :RETURN 
3239 '------.-"- 
3248 * Clear 


3259 IF POS(KZ)ond(f) OR VPOS(#@)=1+FNy THEN PRINT CHR$ 
(7) ; :RETURN 

3268 x=POS(#9):z$=MID$ (chaines, POS(HQ)+2-FNx):chaine$=L 
EFT$ (chaines, POS(HG)-FNx)+z$:CURSOR Y:fcour:g:PRINT CHR$ 
(16);2$;CHR$ (32) ; :LOCATE x, FNy:CURSOR 1 :four=t:RETURN 
3289 ' Del 

3298 IF POS(#Z)=FNx THEN PRINT CHR$(7); :RETURN 

3389 PRINT CHR$(8) ; :GOSUB 3264:RETURN 

3328 '  CTRL-E 

3339 ligne$(w,f)="":LOCATE FNx,FNy:PRINT SPACES (LEN(cha 
ine$));:chaine$="":1F ftype(f)=2 THEN LOCATE 1, 1:RETURN 


X 
KG 


>GD 
XF 
>XG 
>PU 
>XU 


NE 
NY 
HU 


>YK 
NH 


)FF 
»XG 
>XH 
DC 
)VH 
)LJ 


)tB 
”YC 
KD 


NE 
YF 
>XH 
>GA 


WA 
YA 
NB 
NN 


LA 


AP 


NYE 
YF 
>QM 
)FA 
»XK 
YA 
>LK 


ELSE LOCATE FNx, FNy:RETURN 


3349 1----------.. Do 
3358 *  CTRL-F DVD 
3369 IF w=4 OR ftype(f)=2 THEN PRINT CHR$(7);:RETURN WA 
3370 ni(f)=u-1:RETURN >RT 
338 *-----------""" )YG 
3398 * Haut >YH 
3499 1F ftype(f)=2 THEN RETURN )Yh 
3419 IF w={ AND ftitre(f)=@ THEN w=nl:GOSUB 3699:RETURN AH 
3424 1F w=8 THEN w:nl:G0OSUB 3698:RETURN HP 
3439 wu=w-1:GOSUB 3699 :RETURN )XE 
344g ?--------. »YD 
345$ ' Bas NYE 
3468 1F ftype(f)=2 THEN RETURN NYC 
3479 IF w=nl THEN w=it(ftitre(f)=3):G0SUB 3694:RETURN  >2D 
3488 w=u+1:GOSUB 3649:RETURN >XH 
3498 ?-------------."."."- Del 
3599 ' Enter )YA 


3519 CURSOR S:fcur=ÿ:sw=w:1F chaine$="" THEN GOSUB 2568 >WA 
:GOSUB 3468:RETURN ELSE GOSUR 2569:G0SUB 3529:G0SUB 346 
9: RETURN 


3529 1F ftype(f)<>2 THEN typ=ftypelf)+(ftype(f))1):0N t TJ 
yp GOSUB 3559, 2819, 2994 :RETURN 

3539 GOSUB 267$:CURSOR 1:fcur=1:RETURN >'HZ 
354ÿ ----------------- NYE 
3554 1F fcentre(f)>4 AND w># AND LEN(chaine$)<nc{f) THE JG 
N ff=ÿ:0N fcentretf) GOSUB 2598, 2599:RETURN 

3569 IF w=ÿ THEN ff=f:GOSUB 258 )YE 
3579 RETURN »FJ 
3589 LOCATE cxiw,f),cy(w,f):PRINT SPACES(VAL(Ic$(u, f))) >NM 


ÿ : RETURN 

3599 FOR j=1 TO nl(f)-i:chaine$=chaine$+ligne$(j,f)+" " >NG 
INEXT j'chaine$=chaine$+lignes()j, f) :RETURN 

3689 1F ftype(f)<>2 THEN chaine$=ligne$(w,f):LOCATE FNx >JH 
, FNY RETURN ELSE RETURN 

3619 PRINT CHR$(7); :CLS:PEN b:LOCATE 6,1:PRINT"'A REFAIR DUH 
E ! Pressez une touche"; :PEN c:FOR jj=1 TO ni(f):lignes 
(3j,f)="":NEXT jj:chaine$="":CALL &BB96 :CLS: RETURN 


3629 ? HHHKAEEX »YD 
3638 ' Couleurs )YE 
3649 ? HHHEXAEX >YF 
3654 IF (fex AND FNbit(f)1=9 THEN PRINT CHRS(7)::RETURN )ZQ 
3668 fh=15:1h=!:chh=22:cbh:24:cgh=1:GOSUB 4578:CLS#6:G0 >DA 
SUB 229g:f=VAL(nnr$) 

3679 wf=7:WINDOWtuf,8,33,1,6:PAPER#uf ,a:PENNuf,c >VX 
3689 PRINT#uf, CHR$ (159) ;STRINGS (8, 154) ;CHR$(158) ; STRING >DB 
$(15,154);CHR$(156) ;CHRS(149); "INK 9, ";CHR$(149);" 

F1 F2 F3 F4";CHR$(149); 

3699 PRINT #WF,CHR$(149);"INK 1, ":;CHR$(149) ;"FEN JUA 

"M, CHR$S (149); CHRS (149); "INK 2, ";CHR$S (149) ; "CAD 
":CHRS(L49); 
3790 PRINT #WF,CHR$(149):"INK 3, ";CHR$(149); "CAR >DP 


M CHRS (149) ;CHR$ (147); STRINGS(8, 154) ;CHR$ (155) ;S 
TRINGS (15,154) ;CHR$(153) ; 
3719 FOR i=# TO 3:LOCATERWf,8,i+2:PRINTtuf,FNsb$(encre( >QX 
i));:NEXT i 
3729 FOR j=1 TO fmax:FOR i:ÿ TO 2:LOCATE#uf,15+34(j-1), 
i+3:PRINT#wf,FNsb$(color(i,j))::NEXT i,j:fcom=1 
3739 k=f:fec=f:fcom=fcon XOR l:fcom=fconti:0N fcom GOSU >PP 


VK 


v 





. 


B 3859,3869 

3749 cyy=wcy:G0T0 3768 RU 

3759 PRINT CHR$(7); NH 

3769 r$=INKEYS:IF r$="" THEN IF fec=1 THEN 3768 ELSE ON >RT 
fcon GOSUB 3899, 3919: LOCATEHuf , wox, cyy:PRINTHuf, CHR$ (2 

4) ;rep$;CHR$(24) ;STRING$(wIc,8);:G0T0 3768 

3779 r=ASC(r$):1F r=224 THEN CLS:RETURN 

3789 1F r>239 AND r<244 THEN LOCATEHuf,wox, cyy:PRINTHuf 
» SPACES (wc); STRINGS(wlc,8) ;rep$;:rep=VAL(rep$):0N fcon 
GOSUB 3874,3884:fec-ÿ:0N r-239 GOSUB 3938,3928:1F r=24 

2 OR r=243 THEN fcom:fcom-1:G0T0 3739 ELSE 3768 


HL 
)FX 


3798 IF r=127 THEN fec-f:G0TO 3769 DAY 
3849 IF r<48 OR r>57 THEN 3758 >ND 
3819 1F POS(#uf)=wcxtwlc THEN 3758 BG 


3828 rep$=LEFT$(rep$,POS(#wf)-ucx)tr$:IF VAL(rep$)}(19 A 
ND fcom=i THEN r$=r$+" "+CHR$(B) 


RT 


3839 PRINT#uf,CHR$(24) ;r$;CHR$(24): :fec=1:G0T0 3769 JW 
JO4 '---------" ss. >YH 
3859 ucx=B8:ucy=2:wlc=2:imax=3:RETURN DHE 
3868 wcx=15+3#(f-1):wcy=3:wlc=1:imax=2: RETURN >RA 


3879 IF rep>26 THEN PRINT CHR$(7);:RETURN ELSE encre(k) >GN 


=rep:GO0SUB 394ÿ:RETURN 


3884 IF rep>3 THEN PRINT CHR$(7); :RETURN ELSE color(k,f >CJ 
)=rep:lF fec THEN GOSUB 2239:uf=7:RETURN ELSE RETURN 

3894 rep$=FNsb$(encre(k)):1F encre(k)<19 THEN rep$=rep$ >EY 
4" " 

3998 RETURN >FF 
3919 rep$=FNsb$(color(k, f)):RETURN )EF 
3928 1F kCimax THEN k=k+1:cyy=cyy+t:RETURN ELSE k:8:cyy >UH 
=wcy : RETURN 

3939 1F k>9 THEN k=k-1:cyy=cyy-1:RETURN ELSE k=imax:cyy >BU 
=wcy+imax: RETURN 

3944 BORDER encre(f):FOR j=ÿ TO 3:INK j,encrelj):NEXT j >KD 
RETURN 

3959 ? #XH4XX DYK 
3969 ’ Retour ?ZA 
3979 ? HYXHAXK 28 
3989 fm=ÿ:iw=18:fh=3:1h=t:chh=24:cbh=25:cgh=1:GOSUB 628 >BC 


3999 srr=rr:lF rr=79 THEN FOR iz=1 TO fmax:1F (fex AND )JZ 
FNbit(iz))}=ÿ THEN fm=1:G0T0 4999 ELSE NEXT iz 

4899 1F fn=1 THEN iw=19:fh=9:CLSHG:GOSUB 629:CALL &BB96 )Z2T 
:CLS:narf=ÿ:nmr$=FNsb$ (iz) :RETURN 


4919 iw=29:fh=9:GOSUB 628:1F srr=78 THEN 4999 )MD 
4928 iw=22:fh=9:GOSUB 629:1F rr=78 THEN fef:ÿ ELSE fef= »2V 
fl 

4939 GOSUB 415$:GOSUB 4329 UV 
4949 1F p<pmax AND fupd=ÿ THEN iw=23:fh=3:GOSUB 62ÿ:1F >WG 
rr=79 THEN exit: 

4959 fcor=2:RETURN )>PQ 


4969 OPENOUT file$:WRITE#9,p, pnax,rmax:FOR i=1 TO paax: 
VRITE#9, index(i,9),index(i,1):NEXT i:CLOSEOUT:IF fidx T 
HEN old$=non$+".BAK"::ERA, ol d$: RETURN ELSE RETURN 


>PF 


4ÿ7ÿ '--------- »YD 
4988 ' Corrections )YE 
4999 iw=21:fh=2:G0SUB 629:0N choix GOTO 4198,4119 )RB 
4199 CLS:RETURN >LH 


4119 FOR i=1 TO fnax:FOR j=8 TO nllil:ligne$(j,i)="":NE >W 


XT j,i:GOSUB 4328 
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4129 fnax=f:fcor={:RETURN 


Sauvegarde fichier 


4159 index(p,1)=fmax:iw=24:fh=9:CLS#6:GOSUB 629:1F fupd » 


THEN GOSUB 4218:1F p<pp THEN deb2=p+{:fin=pp:GOSUB 419 
9 :CLOSEIN: «ERA, file2$:RETURN ELSE CLOSEIN: ERA, file2$:R 
ETURN 
4169 ON fsavti GOTO 4179,4189 
4179 GOSUB 4219:RETURN 
4189 deb2=1:fin=pp:GO0SUB 419ÿ:CLOSEIN:fsav=ÿ:GOSUB 4219 
ERA, file2$:RETURN 
4199 FOR h=debZ TO fin:FOR i=1 TO 6: !INPUTHO, dat :URITE#9 
,datiNEXT i:FOR i=1 TO dat:FOR j=1 TO 16:INPUT#9, par :WR 
ITE#9, par :NEXT j 


4298 FOR j=9 TO 12:FOR k=1 TO 2:INPUT#9, par :WRITEKO, par ) 


NEXT k:FOR k=1 TO 5: INPUT#9, tex$:PRINTHO, tex$:NEXT k, j 
si, h:RETURN 


4219 FOR i=9 TO S:WRITE#9,encreli):NEXT i:WRITER9,fef,f ) 


max:FÜR i=1 TO fmax 


4228 WRITE#9,nl(i},ftypeti),fcad(il,ftitre(i),frepli),f » 


centre(i),cadr(i),cgti},cd(ir,chli),cb(i),mg(i),md(i),c 
olor(g,i),color(i,i),color(2,i) 


4239 FOR j=9 TO 12:MRITE#9,cx(j,i),cy(j,i),lc$(j,i),tc$ 


(j,i),var$(j,i),ptr$(j,i),ligne$(j,i):NEXT j, i:RETURN 


425ÿ FOR i=g TO 3: INPUT#O,encre(i):NEXT i:INPUT#9,fef,f 
max:FOR i=1 TO fmax 

4269 INPUT#9,niti),ftypeti),fcad(i),ftitre(i),frepli),f 
centreli),cadr(i},cg(i),cd(i),chti),cb(i),mg(i),md(i),c 
olor(#,i),color(i,i),color(2,i) 


4279 FOR j=9 TO 12:INPUT#9,cx(j,i),cy(j,i),lce$ij,i),tc$ 


ij,i),var$(j,ir,ptr$(j,i),ligne$(j,i):NEXT j, i:RETURN 


4298 DIM ftypelrep),ftitre(rep),fcad(rep),frep(rep),fce 
ntre(rep),nl(rep),cadr(rep),encre(3),color(2,rep),ncire 
p),ptr$(12,rep},lc$(12,rep),tc$(12,rep),varé(12,repl 
4399 DIM mhpos(9),cg(rep),cd(rep),ch(rep),cb(rep),cbnin 
(rep) ,ng(rep),md(rep),cv(rep),cx(12,rep),cy(i2,rep),lig 
ne$(12,rep):RETURN 


4329 ERASE ftype,ftitre,fcad,frep,fcentre,nl,cadr,encre 
,color,nc,ptr$,lc$,tc$,var$,mhpos,cg,cd,ch,cb,cbmin, mg, 
md,cv,cx,cy, ligne$:RETURN 

4339 ‘ KARRANNNMENEENEEENEEX 

4349 ’ Interrogation Clavier 

4359 * KARMEMEENRENNUENEENEX 

4369 CLEAR INPUT:r$="":MHILE r$="":r$=UPPERS(INKEYS) :NE 
ND:r=ASC(r$) :RETURN 

4370 ! KAKAENEENEEX 

4389 ? Mire Gradute 

4309 ? MAHAENEERNEX 

4499 MOVE 9,9,b,9:FOR ee=1 TO 2:GOSUB 444ÿ:GOSUB 445g:G 
OSUB 4449:GOSUB 4469:NEXT ee:GOSUB 4449 :MOVE 9,9 

4419 FOR ee=1 TO 3:G0SUB 4479:GOSUB 4489:G0SUB 4478:G0S 
UB 44OB:NEXT ee:GOSUB 4479:GOSUB 4489:GOSUB 4478: MOVE 3 
14,9 

4429 FOR ee={ TO 2:GOSUB 4599:GOSUB 4519:GOSUB 4589 :G0S 
UB 4528:NEXT ee:GOSUB 4598:MOVE 329,384:DRAUR 9, -166:M0 
VER #,-36:DRAUR 8,-166 


>UH 





…. 


4439 MOVE 9,194:FOR ee=1 TO 3:GOSUB 4539:GOSUB 4548:GÙS 

UB 4539:GUSUB 4559:NEXT ee:GOSUB 4539:GOSUB 4549: GOSUB 

4538:MOVER 16,6:DRAWR -649, f:RETURN 

444ÿ FOR e=1 TO 4:MOVER 9,16:DRAUR 6,9:MOVER 626, 9:DRAU 

R 8,8:MOVER -649,Y:NEXT e: RETURN 

4459 MOVER #,16:DRAUR 16,0:MOVER 646,9:DRAUR 18,9:MOVER 
-648,8:RETURN 

4469 MOVER 8,16:DRAUR 19,9:MOVER 618,S:DRAUR 12,8:MOVER 
-649,9:RETURN 

4419 FOR e=1 TO 4:MOVER 16,9:DRAWR 89,6:MOVER 9, 388:DRAW 

R 8,6:MOVER 9,-49:NEXT e:RETURN 

4489 MOVER 16,9:DRAUR 9,19:MOVER 9, 382:DRAUR $, 19: MOVER 
ÿ, -498:RETURN 

4499 MOVER 16,9:DRAUR 9,16:MOVER 9, 368:DRAUR 9, 16:MOVER 
ÿ,-49Y:RETURN 

4590 FOR e=1 TO 4:MÜVER 4,16:DRAWR 12,#:MOVER -12,#:NEX 

T e:RETURN 

4519 MOVER -19,16:DRAUR 32,9:MOVER -22,9:RETURN 

4529 MOVER -4,16:DRAWR 29,8:MOVER -16,D:RETURN 

4539 FOR e:1 TO 4:MOVER 15,9:DRAUR 9,12:MOVER 9,-12:NEX 

T e:RETURN 

4549 MOVER 16,-4:DRAWR ÿ,/Y:MOVER D,-16:RETURN 

4559 MOVER 16,-1Y:DRAUR 9,32:MOVER 9,-22:RETURN 


4579 WINDOWK6, cgh, 49, chh, cbh:CLS#6:PRINT#6, help$(fh,#): 
FOR q=1 TO Lh:PRINT#6,help$(fh,q);:NEXT q:r$=HEX$(fh,1) 
IF INSTR("89AF",r$) THEN PRINT#6, "Apris avoir lu, appu 
yez sur une touche"; :CALL 8BBGG6:RETURN ELSE RETURN 

4588 GRAPHICS PEN 3:PRINT CHR$(23) ;CHR$(1) ;:TAG:FOR q=8 
TO Ih:MOVE xh,yh-gt{6:PRINT help$ifh,q);:NEXT q:TAGOFF 
:PRINT CHR$ (23) ;CHR$ (D) ; RETURN 


ES.BAS 


gt -—- 
2ÿ ? ES.BAS 

QT aseee 

Q  RARRARAIERERENRARERREUERRENARUNX 

5g ' + x 

6g ' # EASY SCREEN LI 

18" + * 

88 ' * Version 2.8 * 

9g ‘ + * 

198 ‘x DUBUS GUY - Janvier 1999 x 

119 '# » 

PJ RMELEZZLELTELELELELEEELEEELEEES 

139 

148 ! HARRAMRNENERNENEN 

159 ’ Page de prisentation 

168 ? HAXAEXEEEENNARARRNEX 

17g ? 

189 DIM col(6):MODE 9:BORDER 9:INK 9,8:PRINT CHR$(23);C 
HR$ (1); 


198 FOR stylo=# TO 15:INK stylo, B:NEXT:TAG 

288 A$="SOFTJOB PRESENTE":B$="GENERATEUR":C$="ET GESTIO 
NNAIRE":D6="DE PAGES-ECRAN":E$="EASY SCREEN":F$="R{alis 
ation: G.DUBUS" 





>XQ 


TN 


)TZ 


)TQ 


TN 


>LA 
>LB 
)LC 
>LD 
LE 
oLF 
>LG 
>LH 
)LJ 
>RB 
>RC 
)RD 
RE 
>RF 
>RG 
>RH 
)RJ 
>HQ 


>M4 
BV 


£ f À 
sis à AY ie Le # 
APMOAL LE. 1 it. 


TÉLÉCHARGE 


Pour commencer, voici 
quelques petits 
programmes du 

domaine public. Je 
rappelle que ces 
programmes sont 
presque toujours en 
anglais et que les docs 
éventuelles sont elles 
aussi dans la langue de 
Byron. 


SPREAD est un tableur qui devrait 
ravir les personnes manipulant des 
données chiffrées car il possède plus 
de mille cellules exploitables avec 


les possibilités habituelles : alphanur- 
mériques, nombres et formules. Mis 
à part quelques routines en Assem- 
bleur, le reste est en Basic, ce qui 
permettra des modifications et des 
personnalisations eventuelles du 
programme. Vous trouverez le 
mode d'emploi dans le fichier 
SPREAD.DOC plus quelques carac- 
téristiques dans SPREAD.TXT. 

BIGLET permet l'affichage de 
lettres géantes sur l'écran et autori- 
se donc la création de pages de 
présentation défilantes. || suffit de 
regarder le listing pour comprendre 
le fonctionnement du programme. 

Un petit jeu de lettres avec 
BOTTLES. I! s'agit en fait d'une ver- 
sion du célèbre jeu du pendu rem- 
plaçant le condamné par une série 
de 10 bouteilles vertes sur Un mur 
(comptine anglaise très connue). 
Bien sûr les mots proposés à votre 
sagacité sont en anglais ainsi que 
la doc. 
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DH128V1. Sous ce nom ésotéri- 
que se cache une routine d'écritu- 
re en double hauteur qui fonctionne 
très bien dans tous les modes mais 
sur 6128. 

MEMREAD permet la lecture et 
l'affichage des données contenues 
dans la RAM et/ou les ROMs de 
l'Amstrad. Ca n'est pas très rapide 
mais ce peut être utile. 

Une jolie musique classique : la 
sonate au clair de lune de Beetho- 
ven. Elle est très bien réalisée et vous 
la trouverez dans le fichier 
MUSIC.BAS. 

ROMANUM est un très court pro- 
gramme qui transforme les nombres 
arabes en nombres romains. 

REJOYCE intéressera ceux qui ont 
accès à un PCW puisqu'il permet 
de lire des disquettes de ce dernier 
avec un lecteur de CPC. 

Pour en terminer avec ce chapi- 
tre, voici quelques musiques en vrac 
qui vous permettront de chatouiller 
le haut-parleur de votre CPC : HYMN 
et HYMN2, ALLO, le thème musical 
de la série télévisée, PUGWASH un 
air bizarre et enfin SWARS contenant 
le thème de Star Wars. 


Les démos ne sont pas très nom- 
breuses : BBALL tout d'abord est un 
peu spéciale car elle est en Basic et 
pourtant elle permet l'animation 
d'une énorme boule quadirillée, 
tournoyant sur elle-même et se dé- 
placant sur un fond de petits car- 
reaux. Et en plus il y a du son. Ceux 
qui regarderont le programme trou- 
veront facilement l'astuce utilisée 
mais il faut reconnaitre que c'est 
plutôt bien pensé. 

Des démos plus classiques ensui- 
te : Meeting Demo très courte (9 Ko) 
et réalisée en quelques heures. 
S.K.Y. Démo est plutôt une compila- 
tion d'air célèbres avec un scrolling 
qu'une démo technique. 


Voila pour ce mois-ci. Bon télé- 
chargement à tous, 


GUIDE DU PROGRAMMEUR 


Votre programme est maintenant fin prêt, il ne vous reste 
plus qu’à envoyer votre œuvre à CPC Infos. 
Mais n’oubliez pas : 
cs, 


me Eigs SUT papier 
e les pro 
Més. hd 


ne sont 
Qs 
mes sont x 


a 
sd 
Le ge té N 





























E PROGRAMMEUR E PROGRAMME 

| NOM : Prénom: Nom : 
Adresse complète : . Catégorie Q Jeu Q Utilitaire Q Educatif 

| Taille : | 
TÉL TE: ——— — Périphériques utilisées : 

| Support Q Cassette Q Disquette | 
Attestation sur l'honneur Comptabilité (testée) avec : 
Je soussigné l 

sie , + à 464 Q 664 Q 6128 Q PCW 8256 

déclare être l'auteur du programme ci-joint et ne l'avoir { 

| jamais proposé à une autre revue. Signature 
Le A 
* Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aima- | 
ble clientèle de choisir l'envoi en recommandé. 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou disquette. | 
Envoyez le tout à CPC Infos — La Haie de Pan - 35170 BRUZ | 





= — 4 EE Je D = > © EE © SD © OZ © OC = > © 


_ Ptiapez à. CPC os 






Sur Terre une pénurie 
d'énergie se fait sentir. 
On vous confie alors la 
mission d'aller quérir 
l'oxysudrium, une 
source d'énergie 
fabuleuse en abondance 
sur les 4 planètes du 
système planétaire 
Oxysudis. 
Attention : 4 gardiens 
veillent sur chacune des 
mines des 4 planètes, et 
le temps vous est 
compté. Faites vite et 
bonne chance ! 


























Dany DA SILVA 


Valable pour CPC 464 - 664 - 6128 


CHARGEMENT 


Taper et lancer les listings basic 
DATAOXY.001 et DATAOXY.002 qui 
créeront les fichiers binaires 
OXYSUDIS.AFF et OXYSUDIS.SPR, puis 
taper ensuite le programme 
PRESENT.OXY qui créera la page de 
présentation sauvegardée sous le 
nom d'OXYSUDIS.PRE. Enfin, rentrer 
et lancer le programme principal 
basic OXYSUDIS.BAS. 


TAILLE DES FICHIERS 
UTILISES LORS DU 
LANCEMENT DU JEU 


OXYSUDIS.BAS : 23 ko 

OXYSUDIS.AFF : 1 ko = &2DS octets 
OXYSUDIS.SPR : 2 ko = &éFZ octets 
OXYSUDIS.PRE : 17 ko (sauvegarde 
d'écran) 
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ls 
& Ve X GES 
LES Q 


DIRECTION 


Vous pouvez utiliser indifféremment 
le curseur ou la manette. 


QUELQUES TRUCS... 


Si vous pensez que la page de 
présentation est inutile, ne rentrez 
pas le listing PRESENT.OXY et 
remplacez les lignes 2320, 2330, 
2340 et 2350 par des REM. 


Si vous pensez que le temps 
imparti est trop juste, remplacez la 
ligne 760 par : 

760 TIMS$S="":TIM=9000:A $= "9000": 
Z1=23:22=1:GOSUB 1670 


Pour avoir des vies infinies, 
enlevezle VIE=VIE-1 de la ligne 
1820. 


Enfin, le scénario ainsi que 
quelques conseils sont inclus dans 
le listing OXYSUDIS.BAS. 


mm mm mm mm 


49 NODE 2:ad=49980:n1=1989 

58 FOR i=1 TO 45:son=9:FOR j=1 TO 16:READ at 

68 POKE ad, VAL("£"+a$):50m=s0m+PEEK (ad) :ad=ad+i 

78 NEXT j:READ ver$:IF VAL("&"+ver$)C>so THEN 98 

88 LOCATE 1,1:PRINT "LIGNE"; n] ; "CORRECTE !!!":nl=nl#5:NEXT i:S 
AVE"OXYSUDIS. AFF", b, 49998, &2D8 : CLS : END 

98 CLS:PRINT "LIGNE" ;nl ; "INCORRECTE !!!":END 

18ÿ REH 

1898 DATA DD,5E, 98, DD,56,91,DD,6E, 92, DD, 66, 83, 86,98, C5,E5, P6BA 
1985 DATA 96,92, 1A,77,23,13,19,FA,E1,CD, 26,BC, C1, 19,EF, C9, #6F2 
1919 DATA 49,C9,49,C9,94,04,04,94,46, 44,44, 44, 19,39, 06,99, 0368 
1915 DATA 96,89, 40,89, 96,08, 69,98, 09,88, 09,88, 19, 39, 00,08, 0249 
1828 DATA 49,C0,98,48,98,94,94,9C, 44, 08, 44, 89, 19,39, 89,99, 921C 
1925 DATA 48,C8,98,49,08,04, 60, 0C, 09,44, 09,44, 19,39,00,95, 0218 
1838 DATA 49,09,48,99,94,04,94,04,44,CC, 68, 44,88, 19,89, 09,61F4 
1935 DATA 49,C8,49,08,84,09,60,0C, 60, 44, 44,44, 19,38, 00,98, 025C 
1848 DATA 49,C9,49,45,94,99,9û,0C,44, 44,44, 44,19, 39, 89,09, 92E4 
1945 DATA 48,C8,60,49,99,94, 90,06, 60,88, 44,06, 19, 09, 00,95, 9228 
1859 DATA 49,C6,49,48,94,94,94,0C, 44, 44,44, 44,19, 30,09, 09, 92E8 
1955 DATA 48,C8,49,49,84,94,D4,9C, 00,44, 09, 44, 19, 39, 00,00, 0269 
1868 DATA 09,96,99,88,04,98,0C,98,CC, 88,44, 88, 59, 29,09, 89, 92E9 
1965 DATA 60,98,48,98,84,08, B4,9C, 44, CC, 44,88, 19, 09,09,90, 9248 
1978 DATA 99,09,09,09, 08,00, 00, 900,908, 99,09, 88, 89, 29,89, 09, 9948 
1975 DATA 98,99,96,96, 60,90, 90, 09, 09,00, 09,88, 09, 29, 19, 08, OGB8 
1888 DATA 99,69,99,89,94,09,99,00,908, 09, 99,90, 60, 09,69, 99,9194 
1985 DATA 95,89,46,46,84,04, 60,04, 60, 86, 80,09, 09, 29,00,09,61B4 
1808 DATA 95,69,09,85,99,98, 90, 96,98, 68,98, 99, 59, 29,89, 99,918 
1995 DATA 45,C8,48,C9,84,94,04,94, 44,CC, 44,44, 19, 19, 09,98,93C8 
1198 DATA 49,C9,48,49,94,04,94,908,44, 44, 44,44, 19,30, 89,99, 82F4 
1195 DATA 48,C8,48,09,84,00, 84,00, 44,09, 44,09, 19,30, 00,96,0219 
1119 DATA 49,89,49,49,94,94,94,04,44, 44, 44,44, 19,29, 60,99, 9299 
1115 DATA 49,C8,40,09,04,00,54,98, 44,99, 44,09, 19,39,00,00,0218 
1128 DATA 49,C9,49,08,94,00,94,96,44,98, 44,08, 19, 99,09,99,G1EB 
1125 DATA 48,C9,49,49,94,08,84,9C, 44,CC, 44, 44, 19,39, 09, 85, 936C 
1138 DATA 49,49,49,49,94,94,94,8C,44, 44,44, 44,19, 19,00, 09, 9248 
1135 DATA 49,C8,66,88, 00,98, 60,08, 09, 88, 09,88, 19,38, 09,98, 82E0 
1148 DATA 49,C9,09, 80,08, 98,98, 06,98, 68,98, 88, 19, 29,00, 89, 92D8 
1145 DATA 45,49,48,49,84,04,64, 98, 44,88, 44,44, 19, 19, 09, 00, 9288 
1159 DATA 49,90,49,00,94,00,04,08,44,99, 44,99, 19,30,09,09,0159 
1155 DATA 49,49,40,C9,94,0C, 84,04, 44,44, 44,44, 19, 19, 90, GB, 02C8 
1168 DATA 49,C9,49,49,94,94,94,04,44,44,44,44,19,19, 89,89, 92C8 
1165 DATA 49,C8,46,40,84,94,64,04,44,44, 44,44, 19,39, 00,09, 62EG 
1178 DATA 49,C9,49,C8,94,04,04,94,44,CC, 44,08, 19, 89,80, 09,0374 
1175 DATA 48,C8,48,C0,84,94,84,04, 44,44, 44,44, 19,39, 00, 20,9389 
1188 DATA 49,C8,48,49,04,04,94,98,44, 44,44, 44,19,19, 89,88, 92C4 
1185 DATA 48,C8,46,08,84,09, 04, 9C, 08, 44,09, 44, 19,38,98,08,021C 
1198 DATA 49,C9,49,C9,99,08, 90, 98,08, 66, 58, 86, 89, 29,00,08,9349 
1195 DATA 48,49,49,49,04,04,D4,D4, 44,44, 44,44, 19,39,00,00,0269 
1298 DATA 49,49,49,49,04,04,04,04,44, 44,44, 44,69, 20, 60,89, 9249 
1285 DATA 49,48,46,49,04,84,84,94,44,CC, 44, CC, 19, 19,98,98,0359 
1219 DATA 49,49,49,49,94,04,9B, 08,99, 88, 44, 44,19, 19,89, 99,4249 
1215 DATA 46,49,49,49,94,04, 60,08, 60,68, 09, B6, 09, 29, 00,00, 0249 
- 1228 DATA 49,C8,09,49,09,64,98,98,08, 88,44, 89,19, 30, 09,09, 4258 


BH DATAS.002H 
FO sons 
28 REN=  SPRITES - 
36 REN PS L 


48 HODE 2:ad=49539:n1:1909 

5ÿ FOR i=1 TO 111:508-8:FOR j=1 TO 16:READ a$ 

68 POKE ad, VAL("&"+a$) :som=so8+PEEK (ad) :ad=ad+i 

78 NEXT j:READ ver$:1F VAL("&"+ver$)Osom THEN 98 

88 LOCATE 1,1:PRINT "LIGNE" ;nl ; "CORRECTE !!!"enl=ni+5:NEXT i:S 
AVE"OXYSUDIS. SPR", b, &9539, &6FD:CLS : END 

98 CLS:PRINT "LIGNE" ;n];"INCORRECTE !!!":END 

199 REM 

1898 DATA DS, 09, 90,08, AS, 00,98, AB,08, 44,78, D8, 88, CC, 39, A9, 0539 
1985 DATA 96,CC,39,98,84,E4,39,29,50,D9, 39, 29, 0C,E4, 79,30,0534 
1919 DATA 89C,CC,E®,B9,94,CC, 78,28,84,CC, 39, 28, 86, CC, 39,89, J5E4 
1915 DATA 99,CC,39, AG, A6, 44, 70,D9, DO, 09, 69; A9, A9, 09,00, 08, 85D8 
1829 DATA 99,C9,C8,98, 49, 38,38, 88,98, 68,98,69,99, 39,69,69, 5689 
1925 DATA 98,39,68,69,98, 38, 30,69, 49, 39, 30,84, 00,C9,C9, 98, 0579 
1838 DATA 49,09,00,00,09,06,08,08,08, 00, 60,00,06,90,98,41,9941 
1935 DATA 49,00,98,41, 42,00, 90, 41,E0, 09, 09, D2, FO, 89, 00,93, 4B9 
1849 DATA 33, 89,09,93, 33, 89, 98, 41,C8, 09, 68,00, 09, 90,909, 89,02FA 
1945 DATA 99,98,95,99,3C, 3C, 3C, 78,30, 3C, 3C, F8, 14, 3C, 78, AD, 8438 
1858 DATA 99,3C,F8,90,99, 14, A6,98,98,8C, 4C, 99,89, 8C, 4C, 49, 0399 
1955 DATA 99,84,98,80,FC,F8,F4,FC,FC,F8,F0, F8, FO, F0, 44, 24, DAC 
1869 DATA 18,88, 44,24, 18, 88, B9, 38,38, 78,B4, 3C, 30, 78,F4,FC, 86BC 
1965 DATA FC,F8,F4,FC,FC,F8,F4,FC,FC,F8,F4,F9,F8,F6,09,98, OD7C 
1878 DATA 99,09,09,06,98, 99,95, 58,90, 94,94 ,C4,9C, 3C, 3C, 6C, 848 
1975 DATA C8,68,68,6C,9C,3C, 3C,6C,9C,94,94,C4, 9C, 3C, 3C, 6C, 978C 
1888 DATA C8,68,68,6C,CC, CC, CC, CC, 98, 98, 09, 98,989, 99, 80,69, 9534 
1985 DATA 98,99,94,8C,8C, BB, 4C,CC,CC, DC, 4C, CC, CC, DC, 4C, CC, #6BC 
1898 DATA CC, DC, 4C,CC,CC, DC, 4C, CC, CC, DC, 4C,CC, CC, DC, 54, FC, 8B38 
1995 DATA FC, A8, 88,60, 90,08, 06,09, 00,06, 00,09, 19,39, 39, 28,9234 
1198 DATA 24,8C,8C,5C,24,8C,9C,5C,24,8C, 80, 5C, 24, 8C, BC, 5C, 8268 
1195 DATA 24,8C,8C,5C,24,8C,8C,5C,54,FC, FC, A8, 99, 08,08,98,0424 
1119 DATA 99,90,99, 00,99, 68,58,F0,F8, A8, A1,81,42,D9,E8, 93, 95E7 
1115 DATA C9,52,A1,42,81,52, A1,C9, 83, D8,E9, 81, 42,52,E8,93,97D4 
1128 DATA 81,52,58,F9,F8, A9, 98, 08,08, 68, 98,09, 60, 00,00, 99, 93A3 
1125 DATA 14,3C,3C,28, 7C,64,5C,34,6C,5C,64, 1C, 7C,64,5C, 34, D4DC 
1138 DATA 6C,5C,64,1C, 7C,64,5C,34,6C,5C,64, LC, 14, 3C, 30, 28, B4B4 
1135 DATA 69,00,66,09, 00,00, 00,99,09,96,3C,3C, 3C,F#,14,3C,91F4 
1149 DATA 78, A9,99,3C,FS, 90,08, 6C,48, 99,98, 8C, 48, 99,88, 8C, 9478 
1145 DATA 48,99,98,8C, 48, 09, 89, 6C, 48, 88, 09, 6C, 48, 96,09, 8C, 9358 
1159 DATA 48, 99,98, 6C, 48, 98,98, 6C,48, 99,99, 6C, 46, 90,90,3C, 9399 
1155 DATA F9,98, 14,30, 78, AG, 3C, 3C, 3C, F9, 60, 99, 09,99, 08, 99, 03FC 
1169 DATA 99,09,00,00,98,54,FC, 98,98, 09,F4,AB,88,44,CC, AB, B4A4 
1165 DATA 99,89,CC,A6,99,98,44,00,69,09,0C,06,09,99,58, 98, 9220 
1178 DATA 99,81,58,98,98,58,A4,08,68,08,9C,98,99,39,CC,89,8265 
1175 DATA 19,38,CC,88,19,29,CC,CC, 38,29, 44,CC,F8,F9,F0,F8,97F4 
1188 DATA 99,F9,F4,6C, 09, 99,98, 60,98, 06,98, 909,89,99,69,FC, 9368 
1185 DATA A8,99,54,F68, 99, 09,54,CC,88,99,54,CC, 99,98,08,88,9544 
1198 DATA 99,909,94,0C,09,00,84,A4,98, 08,90, A4, 82,89,894,58, B1BE 
1195 DATA A6,98,98,0C,96,00,89,CC, 38,88, 99,CC, 39,29,CC, CC, #45C 
1299 DATA 18,29,CC, 88, 18,39,F8,F8,F8,F9,4C,F8,F 8,90, 89,89, 07B9 
1295 DATA 99,69,00,00,00,80,89,89,84,9C,8C,98,5C,FC,FC,EC, 9364 
1218 DATA 5C,FC,FC,EC, 5C,FC,FC,EC,5C,FC,FC, EC, 5C,FC, FC, EC, 8D8ÿ 
1215 DATA 5C,FC,FC,EC,5C,FC,FC,EC, 5C, FC, FC, EC, 5C, FC, FC, EC, 8D99 
1229 DATA 5C,FC,FC,EC,5C,FC,FC,EC, SC, FC, FC, EC, 5C,FC, FC, EC, 8D89 





1225 DATA 5C,FC, FC, EC, 44, CC, CC, 88, 86, 98, 06,09, 00,09, 08,49, 0544 
1239 DATA 49,08, 44,38, 38, 8,CC, 38,38, FC, CC, 38,38, FC, CC, 39, 8698 
1235 DATA 38,FC, CC, 38, 39, FC, CC, 39, 39, FC, CC, 39, 3, FC, CC, 36, 0848 
1249 DATA 39,FC, CC, 38,36, FC, CC, 38,38, FC, CC, 38,38, FC, CC, 39, 0848 
1245 DATA 38,FC, CC, 39, 38, FC, CC, 39, 39, FC, CC, 38, 39, FC, 44, 38, 9818 
1259 DATA 39,48, 09,08,98,60,98,00,08,69,09,88,51,C9, C9, 89, 9209 
1255 DATA A1,42,83,C9, 1,81, 42,42, A1,03, CD, 42, A1, 42,81, 42, 0698 
1269 DATA A1,08,93,42,ES,81,93,CB,E8, 93, 42, C8, 1,93, C9, 42, 0755 
1265 DATA A1,42,81,42, A1,42, 3, 42, A1,03, 83,03, A1, 03,03, 93, 0422 
1279 DATA A1,03,03,03,F0,F8,F8,FA,58,FA,F8,A8,69,90, 00,09, 0734 
1275 DATA 99,60,80,09,86,09,59,3C, 30, 89, F9, 3C, 3C, CA, FB, 3C, B49C 
1288 DATA 3C,CS,F#,3C, 3, CB, FB,3C, 3C, CB, FE, 3C, 30, CA, FE, 3C, BBAS 
1285 DATA 3C,CA,FD, 30, 30, CA,FS, 30, 3C, CA, FD, 3C, 3C, CA,FB, 3C, D8AG 
1298 DATA 3C,C8,F#, 30, 3C, CB,FB, 30, 3C, CA,FB, 3C, 30, CB, F8, 3C, BAG 
1295 DATA 3C,C8,59,3C, 3C, 689, 80,00, 00,00, 09,99, 00,08,00,6,0244 
1399 DATA 49,69, 99, 06,39, 30,36, 28, 18, 38,39, 38,89, CC, 96, 39, 2E4 
1385 DATA 44,0C, CC, 39,CC, EC, CC, 39, CH, CC, CC, 39, 68, CC, CC, 39,9918 
1318 DATA C#,CC, 46,38,CC, CC, 89, 38,44, 89,89, 38, 89, 89, 92, 39, G6BB 
1315 DATA 99,01,99,19,90,00, 00,00, 00,00, 00,00, 00,09, 00,09,6p11 
1329 DATA 99,06,09,00,09,08,08,08,08,08,69,09, 89,9, 19,30, 8049 
1325 DATA 38,39, 39, 39, 38, 29, 39, CC, CC, 48, 39, CC, CC, 88, 38, CC, 2624 
1339 DATA DC, CC, 38,CC, CC, CE, 38, CC, CC, 68, 38, 89, CC, CA, 39, 46, BB3 
1335 DATA CC,CC, 36,46, 46,86, 39, 91, 89, 09, 20,09, 92,08, 06, 68,032F 
1349 DATA 99,00,09,09,09,08,09,08,08,09,09,00,59, 00, 89,00, 6009 
1345 DATA 69,00,80,09,04,08,80,0C, 00,04, 04,08, 00,54,F4,00,0160 
1359 DATA 89,E9,FC, AB, 19,E8,C8, AB,98,58,C8,A8,19,19, 9,49, A7EC 
1355 DATA 69,29,C3,09,80,09,D2, A9, 06,08, 0, D6, 00, 09,8, DO, 05E5 
1368 DATA 99,08,59, 49,58, AB, 41,82, E8,D8,C3, 82, E8, DA, C3, 49, ABGB 
1365 DATA 59,A0,60,09,60,09, 80,00, 80,08, 00,08, 00,08,0C, 08, 0BFC 
1379 DATA 84,08,09,08,08,68,89,FA,A8,08,58,FC,D9, 89,59, C9, BAD8 
1375 DATA D6, 29,58, C9, A8, 80,90, F8, 29, 29, 09,C3, 19,09,58,E1,25D4 
1389 DATA 99,00, EP,D9,09,08,EB,D8,08, 08,58, A8, 88,69, 41,82, 8513 
1385 DATA 58,48, 41,C3,E0,D9,99,C3, EG, D4, 09,09, 59, 8,06, 49,0707 
1399 DATA 99,00,09,08,09,00,09,08,08,01,92,  B9,93,83,09, 8029 
1395 DATA #1,8C,93, 92,84, AC, 89, 82, 24, AC, 99,52, 24, 06,03, F,0315 
1489 DATA 93,93,52,FD,C8,93,52,FB,C8,81,52,F8, 49,81, F9,F4, 9871 
1495 DATA C9,52,F8,A0,59,F8,FD, A9, 80, F8, FO, 09, 0,58, AB, 99, 0842 
1419 DATA 89,06,00,00,00,90,09,08,08,08,09,08,09,00, 09,00, A0P9 
1415 DATA 09,09,89,01, 82,09, 90,03, 83,08, 01,03, 0C, 92,91, 06, 0822 
1429 DATA 5C,88,41,06,5C,18,F8,03,99, 18,F,A1,83,83, F9, A1, 85BB 
1425 DATA 93,C8,F8, A1,42,C9,F0,F8, 42,84, F9,FS, A1, C9, 58, F6, 0A79 
1438 DATA F9,48,09,F8,F0,00,00,58,A8,08,68,08, 69,00, 69, 09, 9469 
1435 DATA #9,99,99,99,00,60, 00,00, 00,08, 80,08, 00, 0C, 08,09, DAC 
1449 DATA 45,05,98,98,CF,CF,98,08,C5,CF,98,98,CF, 8C, 89, 89, 852F 
1445 DATA 46,04,00,00,85,0F,00,09,0F, 1A,00,09,0F, LA, 08,00, 0878 
1458 DATA 39,38,09,45, 1A,38,98,05, LA, 6F,08,05,38,8F, 89, CF, 8239 
1455 DATA 85,4F,4F,0F,80,6F,4F, GA, 80,05, 4F, 09, 06,09,08,40,01EE 
1469 DATA 99,89,00,00,09,08,99, 08,00, 08,89, 04,CA, BA, 89, 04, 8168 
1465 DATA CF,CF,46,84,CF,CA, 80,90, 8C, CF, 69,08, 05,08, 09,08 ,941B 
1478 DATA 8F,8A,06,08,25,6F,99, 08,25, 0F,8A, 68,39, 39, BA, 09, 8175 
1475 DATA 36,25,04,99,9F,25,CF, 69, 0F, 38, 8F, BF, 6F, DA, 05, 8F, 036C 
1489 DATA 4F, 09,09, 6F,04,0P,09,00,98,68,99,68,09, 60, 19,00, AUEG 
1485 DATA 68,9, 11,FC, 94,91, 80,90, 09,09,99,58,00,FC, FC, 98,035A 
1499 DATA 54,3, 39, A8,B8, CC, CC, 74,EC, BC, 4C, DC, EC, 48, 84, DC, 8954 
1495 DATA EC, 48,84, DC, EC, BC, 4C, DC, BB, CC, CC, 74, 54,39, 38, AB, 0954 
1589 DATA 89, FC, FC, 09,98,60,98,11,91,60,A8,FC, B4, 99, A9, 09, 1382 
1585 DATA 69,69,06,09,90,00,06,00, 00,08, 19,51, 00, A2, 24, 29,0147 
1519 DATA 51,59, 19,09, 99, 42,98, 08,51,08, 29,18, A6, 82, 18, 24, 8371 
1515 DATA 71,99,29, 19,00,90,90,00, 19,00, 19,00, 24, 29, 24, 25,0149 





























1529 DATA 19,99,19,00,090,00,90,98,28,51,98,19,18,89,51,89, 9184 
1525 DATA 28,19, A6,A2,09,24,51,060,69, 19, 00,99, 00,09, 00,00,91FD 
1539 DATA 99,69,09,09,F8,F8,FD,F0,33,33,33,33, 90,09, 89,99, F4AGC 
1535 DATA 38,29,28,39, 24,28, 29,284, 36,08, 29,39, 29,29, 29,29,9228 
1549 DATA 89,09,959,09,33,33,33,33,F8,F8,F8,F4,83, 83,83, 93,498 
1545 DATA C9,C9,C8,C8,49,C8,C9,89,06,C9,C9,09, 09, 49,69,08,9788 
1558 DATA 99,09,09,00,00,90,08,08,09, 09, 08,00, 69,09, 00,00,0000= 


BH OXYSUDIS.BAS 


19 REM KRHNREMERNERMERNEREERARAEENT )YJ 
28 REM # 4 BF 
38 REM + OXYSUDIS L >PN 
48 REM X% } )BH 
58 REM + by Dany DA SILVA 4 JUN 
69 REM x * BK 
78 REM % 15/91/91 x )LY 
89 REM x # >CB 
9ÿ REM # (C) DDS 1991 x NF 
199 REM x 0] »GJ 
119 REM RME OEPEPPIENNENUS >2K 
128 REM >TK 
138 MEMORY &GFFC )LX 
149 LOAD "OXYSUDIS.AFF",49998 »YK 
159 LOAD "OXYSUDIS.SPR", 89539 )YN 
169 MODE 9:PAPER Z:BORDER D:INK D,8:INK 1,26:INK 2,24:1 »BG 
NK 3,15:INK 4,6:INK 5,11:1NK 6,18:INK 7,3:1INK 8,23:INK 
9,13:INK 19,18:INK 11,9:INK 12,2: INK 13,1:INK 14,24,6:1 

NK 15,4:CLS:WINDOW #1,1,29,2,25:PAPER #1,8:CLS #1 

178 DEFINT a-z ME 
189 REM HRRMXRRRRRERREENERNE >TN 
199 REM # LES VARIABLES x TT 
PAT ART LES CEEELESCEEEECEZEE >TF 


218 RESTORE 229:FOR i=&A#90 TO LA937:READ a$:POKE i, VAL DDC 
("&'+a$):NEXT:POKE &OFFD, 16:POKE &OFFF, 4 

228 DATA FE,93,C9,CD, 9, BD, DD,6E,48,D0,66,91,DD,5E,42,D >KP 

D,56,93, CD, 1D,BC,DD,5E, 84,0, 56,85, ED, 4B, FC, BF,C5,E5, ED 
,48,FE, 6F, 1A,2F,A6, 77, 14,86, 77,13, 23,18,F5,E1,CD, 26,80, 

C1,18,E8,C9 

239 DEF FN x(a)=((a-1)#8):DEF FN y(b):(199-(b-1)48):DEF >QD 
FN polx,y)=4C800+(y-1)488+ (x-1)#2 


249 ENV 1,39,39,5:ENV 2,1980,5,1:ENV 3,189,3,1:ENV 4,9, DTR 
9890 :ENT 3,198,2,2 

259 DIM note(88),note2(14),duree(14) )ED 
269 RESTORE 2738:FO0R i=1 TO 89:READ note(i):NEXT i TH 


279 RESTORE 2798:FOR i=1 TO 14:READ note2(i},duree(i):N 
EXT i 

289 sc=fivie=3:ta={:ntpt=17:tfin=8 

298 sens=1:vert=ÿ:chute=f:adaan=4977E 

389 hi=5498:score$="#85499":planet$="POLARIS":mine$="3" 
:name$="DELTACOP" 


)FA 


)EE 
>HK 
AN 


319 DIM jeu(28,25) )LL 
328 eff$-CHR$(32)+CHR$(B)+CHR$ (19) +CHR$ (32) KL 
339 GOSUB 2329 :CLS:GOSUB 689:GO0T0 388 )EE 
349 GOSUB 1559:CLS:GOSUB 688 DUX 
358 REM HAHXHXEKEENNENERNEEEE >TN 
368 REM x* BRANCHEMENT TABS x* DZ 
379 REM HHXHHHEHRENRENENNEUEUNX >TP 
384 IF ta=mtp! THEN ta=16:G0T0 2268 >CU 





399 IF ta(5 THEN adsol=49642:addec=k97C8:adeni =8&98FD:ad >QE 
en2=k993A:LOCATE 4,11:PEN 2:PRINT "PLANET SOLARIS" :GOTO 

478 
499 IF ta(9 THEN adsol=4966C:addec=49812:adeni=8&9984:ad >QR 
en2=&99CE :LOCATE 4,11:PEN 4:PRINT "PLANET HOYOBOS":G0TO 

478 
419 IF ta(13 THEN adsol=&9696:addec=8985C:adent=494A18:a >TB 
den2=&9A62:LOCATE 4,11:PEN 8:PRINT "PLANET POLARIS":GO0T 
0 478 
429 adsol=Kk96C9:addec=&9BA6 :adent =&9AAC :aden2=&9AF6:LOC >UG 
ATE 4,11:PEN 9:PRINT "PLANET TITANIS":GO0TO 478 
439 PEN 1B:LOCATE 13,13:PRINT "{":FOR t=1 TO SBGS:NEXT DRN 
t:CLS #1:RETURN 
449 PEN 1B:LOCATE 13,13:PRINT "2":FO0R t=1 TO SBY9:NEXT RQ 
t:CLS #1:RETURN 
458 PEN 1B:LOCATE 13,13:PRINT "3":FOR t={ TO S3BYY:NEXT DRT 
t:CLS #1:RETURN 

469 PEN 18:LOCATE 13,13:PRINT "4":FOR t=1 TO SBSS:NEXT DRV 
t:CLS #1:RETURN 

479 PEN 18:LOCATE 8,13:PRINT "NINE":0N ta GOTO 488,498, >CG 
598,519,529,538,549,559,569,579,588,599,689,619,629,638 


469 GOSUB 439:RESTORE 2848:GOT0 799 >CV 
498 GOSUB 449:RESTORE 2888:G0T0 798 >CB 
588 GOSUB 458:RESTORE 2929:G0T0 799 )CN 
518 GOSUB 469:RESTORE 2969:G0T0 708 >CV 
529 GOSUB 438:RESTORE 3999:G0T0 799 )CC 
538 GOSUB 449:RESTORE 3948:G0T0 798 »CJ 
549 GOSUB 458:RESTORE 3984:G0T0 79£ >CQ 
559 GOSUB 468:RESTORE 3128:GO0T0 794 >CM 
569 GOSUB 438:RESTORE 3169:G0T0 799 )CP 
579 GOSUB 449:RESTORE 3298:G0T0 708 >CL 
589 GOSUB 458:RESTORE 3249:G0T0 799 )CT 
598 GOSUB 469:RESTORE 3288:G0T0 794 >CZ 
688 GOSUB 438:RESTORE 3329:G070 799 )CG 
619 GOSUB 449:RESTORE 3369:G0T0 708 >CN 
628 GOSUB 458:RESTORE 3489:G0T0 789 >CK 
639 GOSUB 469:RESTORE 3449:GO0T0 798 )CR 
649 REM HAHNHHRNENEER RENNES >TP 
659 REM # DESSIN DECOR x RU 
668 REM HAXNAENANNANNENNEENX >TR 
679 REM *# DECOR DE BASE ## TJ 
689 a$=": POINTS 599989 TIME 9899 LIVES 93 ;*:z1:9: DEP 
z2=1:G0SUB 1679:RETURN 

699 REM #* LECTURE DATA #+# )TJ 


798 READ nbb:FOR i=1 TO nbb:READ y,xd,xa:FOR j=xd TO xa AR 
:CALL LASDB,addec,FN x(j),FN yly):jeu(j,y)=1:jeulj,y+#1) 
2{:NEXT j,i 

719 POKE &BFFD,8:FO0R j=24 TO 25:FOR i=1 TO 28:CALL &Aÿ9 DFK 
ÿ,adsol,FN x(i),FN y(j):jeu(i,j)=1:NEXT i,j:POKE &BFFD, 

16 

729 READ nbpo:FOR i=1 TO nbpo:READ x,y:CALL kAB99, &OGEA DRX 
»FN XX), FN yly):jeu(x,y)=2:jeu(x,y+1)=2:NEXT i:POKE &B 
FFD,8:READ nboxy:FOR i={ TO nboxy:READ x,y:CALL &A9D8,&k 
9578,FN x(x),FN y(y):jeutx,y)=3:NEXT i:oxy=nboxy 

739 READ nbpot:FOR i=1 TO nbpot:READ x,y:CALL &A9BO, 895 >KG 
SA, FN x(x),FN y(y):jeu(x, y)=4:NEXT ji:READ nbpl:FOR i:1 

TO nbpl:READ x,y:LOCATE x,y:PRINT CHR$(32) :CALL &AÏDB,& 
95C4,FN x(x),FN y(y):jeu(x,y)=7:NEXT i 

748 READ nbpif:FOR i=1 TO nbpit:READ x,y:LOCATE x,y:PRI NN 




















NT CHR$(32):CALL &ADOG,&QSEE, FN x(x),FN y(y):jeutx,y)=5 
:NEXT i:READ nbpi2:FOR i={ TO nbpi2:READ x,y:LOCATE x,y 
:PRINT CHR$(32):CALL &A998,89618,FN x(x),FN y(y):jeulx, 
Y)=6:NEXT i 

759 POKE &BFFD,16:READ ex,ey:CALL &A99B,aden2,FN x(ex), 
FN yley):jeu(ex,ey)=8: jeu(ex,ey+1)=8:READ x,y:CALL &ASB 
B,&Q97TE,FN x(x),FN y(y):x1=x:y1=y 

769 tin$-"":tim=f:READ tin$:tin=VAL(tim$):a$=tim$:z1:23 
:22=1:G0SUB 167B:POKE &8FFD, 16 

778 GOSUB 924:G0T0 818 

789 REM #KKXNAXKEENANEENNEEX 

798 REM * PROG.PRINCIPAL * 

899 REM RAM RRERNEOEENEEN 

819 EVERY 259,8 GOSUB 1948 

828 IF tfin=1 THEN GOTO 1798 

639 GOSUB 1379:1F (x=29 AND y=22 AND oxy=8 AND tim»4) T 
HEN GOTO 1918 

849 IF INKEY(B)*INKEY(74):8 AND x)1 AND vert:ÿ THEN adm 
an=&9734:x{=x:y1=y:x=x-1:G0T0 1248 

859 IF INKEY(B)xINKEY(74)=8 AND x)1 AND vert:1 THEN adn 
an=&9734:x1=x:yl=y:x=x-1ivert=@:IF jeu(x,y)=1 OR jeulx, 
y+1)=1 OR jeu(x,y)}=7 DR jeu(x,y+1)=7 THEN x=x1:y=y1:GO0T 
0 1249 ELSE GOTO 1248 

869 IF INKEY(1)#INKEY(75)=8 AND x<28 AND vert=f THEN ad 
man=8977E:x1=x:y1=y:x=x+1:G0TO 1248 

878 IF INKEY(1)XINKEY(75)=8 AND x<28 AND vert=1 THEN ad 
man=&977E:x1=x:y1=y:x=xtiivert=8:IF jeu(x,y)=1 OR jeu(x 
,Y+1)=1 OR jeulx,y)=7 OR jeu(x,y+1)1=7 THEN x=xl:y=y1:G0 
TO 1249 ELSE GOTO 1249 

889 IF INKEY(Z)xINKEY(72)=8 AND vert=1 AND y>2 THEN x1= 
x:yl=y:y=y-1:y2=y:G0TO 1288 

899 IF INKEY(2)xINKEY(73)=8 AND vert={ AND y<22 THEN x! 
=x:yl=y:y=y+1:y2=y+1:GOTO 1288 

989 GOTO 82ÿ 

919 REM ** TESTS #x 

928 v=jeu(x,y+2) 

938 IF v=ÿ THEN chute=1:G0T0 999 ELSE chute=ÿ 

949 IF v=3 AND pot=ÿ THEN SOUND 1,148,19,15, 1 :SOUND 1,2 
98, 19,15, 1:SOUND 1,199,19,15,1:LOCATE x,y+2:PRINT CHR$( 
32):jeu(x,y+2)=f:sc=sc+18:GOSUB 1718:oxy=0xy-1:GOTD 111 
[: 

959 IF v=3 AND pot=1 THEN GOTO 1799 

969 IF v=4 THEN SOUND 1,253,9,15,1:LOCATE x,y+2:PRINT C 
HR$ (32) : jeu(x,y+2)=ÿ:sc=sct5:GOSUB 1718:pot=1:GOT0 1119 

979 IF v=5 OR v=6 OR v=8 OR jeul(x,y)=8 THEN GOTO 1799 

988 IF v=7 THEN vert:{ ELSE vert=8 

998 vv=jeu(x,y+1) 

1899 IF vv:g AND chute=ÿ THEN RETURN 

1919 IF vv=8 AND chute=1 THEN chute=f:GOTO 1119 

1929 IF vv={ THEN x=x1:y=y1:RETURN 

1938 IF vv=2 AND pot=ÿ THEN GOTO 1798 

1848 IF vv=2 AND pot={ THEN FOR v=9 TO 15 STEP 3:FOR s= 
199 TO 1 STEP -28:SOUND 2, 5,2, v, 1:NEXT 5s,v:jeu(x,y)=8:j 
eu(x,y+1)=#:LOCATE x,y:PRINT CHR$(32) ;CHR$ (8); CHR$(18); 
CHR$ (32) :pot=#:RETURN 

1858 IF vv=3 AND pot=# THEN SOUND 1,198,19,15,1:SOUND ! 
, 288, 18,15, 1:SOUND 1,199,19,15,1:LOCATE x,y+1:PRINT CHR 
$(32): jeu(x,y+1)=8:sc=sc+18:GOSUB 1719:0xy=0xy-1:RETURN 
ELSE IF vv=3 AND pot=1 THEN GOTO 1798 


1868 IF vv=4 THEN SOUND 1,253,8,15,1:LOCATE x,y+1:PRINT >HQ 
CHR$(32) : jeu(x,y+1)=Q:sc=sc+5:GOSUB 1719: pot=1:RETURN 


1978 IF vv=5 OR vv=6 OR vv=8 THEN GOTO 1799 >JK 
1988 IF vv=7 THEN vert=1:RETURN AL 
189$ RETURN )FD 
1199 REM ## CHUTE #4 NL 


1118 LOCATE x1,y1:PRINT CHR$(32) ;CHR$ (8); CHR$ (19) ;CHR$( LU 
32) :LOCATE x,y:PRINT CHR$(32) ;CHR$ (8) ; CHR$ (19) ; CHR$ (32) 
:y=yt{:son=258 

1128 ve=jeu(x,y+2) >MH 
1139 IF ve=1 THEN RETURN TV 
1149 IF vo=3 AND pot=8 THEN SOUND 1,198,19,15,1:SOUND 1 DA 
, 289,19, 15, 1: SOUND 1,199, 19,15,1:LOCATE x,y+2:PRINT CHR 
$(32): jeu(x,y+2)=8:sc=sc+18:GOSUB 1718:oxy=0oxy-1:GOT0 1 

129 

1158 IF vc=3 AND pot=1 THEN GOTO 1799 )CD 
1169 IF ve=4 THEN SOUND 1,253,9,15,1:LOCATE x,y+2:PRINT >KG 
CHR$(32) : jeu(x,y+2)=8:sc=sc+5:G0SUB 1719:pot=1:G0T0 11 

29 


1179 IF ve=5 OR ve=6 THEN GOTO 1799 > AG 
1189 IF ve=7 THEN vert=1:RETURN )AR 
1198 IF ve=8 THEN GOTO 1798 >UG 


1289 x1=x:y1=y:LOCATE x1,yi-1:PRINT CHR$(32) ;CHR$(8) ;CH >VH 
R$(18) ;CHR$ (32) 

1219 CALL &AB9#, adman, FN x(x),FN y(y) )DJ 
1228 SOUND 2, son, 18,15,1:y=yt1:son=son-19:1F (x=ex AND 2KU 
y=ey) OR (x=ex AND y=ey+1) DR (ex=x AND ey=y+{) THEN G0 

T0 1798 ELSE GOTO 1128 

1239 REN *# AFFICHAGE ## )Q7 
1249 GOSUB 928:LOCATE x1,y1:PRINT CHR$(32) ;CHR$(B);CHR$ >RZ 
(19) ;CHR$(32) 


1258 CALL &AB9S, adaan, FN x(x),FN yly) >DN 
1268 GOTO 839 FF 
1279 REN xx MONTEE / DESCENTE ## )YX 


1288 vad= jeux, y2) : SOUND 2, 1998, 19,15, 4:SOUND 4,999, 19, DE 
15,4 

1208 IF vnd=1 OR vad=7 THEN x=x1:y=y1:G0T0 839 >PA 
1398 IF vad=8 THEN GOTO 1798 JVC 
1318 LOCATE x1,y1:PRINT CHR$(32) ;CHR$ (8) ;CHR$(19) ;CHR$( DDN 
32) 


1328 CALL &AB99,adman, FN x(x),FN y(y) )DL 
1339 GOTO 839 >FD 
1348 REN RRRRRRREMREMRENEENX >TX 
1359 REM * GESTION ENNEMI x JVU 
1368 REM HA RMENE E NE UE à >TZ 
1378 exl=ex:eyl=ey >NJ 
1389 ON sens GOTO 1398, 1469 UE 


1398 IF ex<29 THEN ex=exti:aden=aden2:IF (x=ex AND y=ey >CX 
) OR (x=ex AND y=ey+1) OR (ex=x AND ey=y+1) THEN GOTO Î 
798 


1498 IF ex>=28 THEN 1428 >QD 
1419 IF jeu(ex,ey)=8 AND jeu(ex,ey+1)=9 THEN GOTO 1448 >XG 
1428 ex=ex-1 )FB 
1438 sens=2:RETURN >PF 


1449 LOCATE exi,ey1:PRINT eff$:jeu(ex1,ey1)=8: jeu(ex!,e >LX 
y1+1)=9 

1458 CALL &AB9S,aden, FN xlex),FN yley):jeulex,ey)=8: jeu )BU 
(ex,ey+1)=8:RETURN 

1468 IF ex>1 THEN ex=ex-1:aden=adeni:1F (x=ex AND y=ey) >BY 


OR (x=ex AND y=ey+1) OR (ex=x AND ey=y+1) THEN GOTO 17 
98 
1479 IF ex<=1 THEN GOTO 1498 
1488 IF jeu(ex,ey)=ÿ AND jeu(ex,ey+1)=8 THEN GOTO 1449 
1498 ex=exti 
1588 sens=1:RETURN 
1519 REN HRRRRERERERENERNENNE 
1529 REM # DIVERS L 
1538 REM HPPPEPONPOUENFIENE 
1549 REM xx MENU/PRESENTAION ## 
1558 CALL &AB96,89539,FN x(7),FN y(1):TAG:MOVE 224,387: 
a$="XYSUDIS":p=1:FOR i=1 TO 7:GRAPHICS PEN p:PRINT NID$ 
(a$,i,1);:p=pt{:1F p=6 THEN p=1 
1569 NEXT:TAGOFF:MOVE 9,361,2:DRAUR 649,4,2:z1=14:z2=4: 
a$=": DDS 1991 ;":GOSUB 1678:MOVE 224,329,3:DRAUR 192,9 
,3 
1578 z1=9:z2=21:a$="PRESS ANY KEY TO START" :GOSUB 1679: 
CLEAR INPUT :p=$ 
1589 PEN 15:LOCATE 3,7:PRINT "THE BEST PLAYER:" 
1598 a$="HIGH BY "+name$:z1=12:z2-9:GOSUB 1678 
1699 a$="SCORE "+score$:z1=14:22=11:GOSUB 1678 
1618 a$="PLANET "tplanet$:z1=13:z2=13:G0SUB 1678 
1628 a$="MINE “tnine$:z1=17:z2=15:G0SUB 1678 
1639 duree=29:GO0SUB 1649:1F p=1 THEN RETURN ELSE duree= 
15:G0SUB 1649:1F p=1 THEN RETURN ELSE GOTD 1638 
1649 FOR i=1 TO 88:SOUND 1,notel(i),duree, 14, 1: SOUND 2,1 
NT(note(i)/2), duree, 12, 1:SOUND 4, noteli)*x4, duree, 15,1: 
F INKEY$Q"* THEN p=1:CALL &BCA7:RETURN 
165$ NEXT i:RETURN 
1669 REM #x AFFICHAGE TEXTE ## 
1678 a$=UPPER$(a$):FOR i=1 TO LEN(a$):sp=(ASC(HIDS(a$, i 
,1)))-48 
1688 1F sp<$ OR sp>42 THEN sp=43 
1698 CALL &9986,FN polzi,z2)+(ix2),89929+(sp#16) :NEXT i 
: RETURN 
1798 REM xx AFFICHAGE SCORE #x* 
1719 sc$=STR$(sc):1=LEN(sc$):sco$=RIGHT$(sc$, 1-1) 
1729 IF sc<9 THEN a$="98998"+sco$:G0TO 1779 
1739 IF sc<99 THEN a$="9989"+sco$:GOTO 1774 
1749 IF sc<999 THEN a$="999"+scob:G0TO 1779 
1758 IF sc<9999 THEN a$="ÿf"+sco$:GOTO 1778 
1769 IF sc<99999 THEN a$="#"+scof$ 
1779 z1=9:z2=1:G0SUB 1678:RETURN 
1789 REN #4 VIE -1 4x 
1799 IF tfin=1 THEN vide=REMAIN(@):tfin=g:LOCATE 5, 12:P 
EN 14:PRINT "TIME IS DVER":GOTO 1899 ELSE 1819 
1889 FOR v=15 TO 8 STEP -2:FOR 5=478 TO 253 STEP -4:S0U 
ND {,5,1,v:NEXT 5s,v:FOR t=1 TO SBYB:NEXT t:GDTO 1828 
1819 vide=REMAIN(S):tim=g 
1828 CALL &BCA7:FOR 5:32 TO 1 STEP -1:SOUND 1,5,1,15:S0 
UND 2,542,1,12:NEXT s:vie=vie-1:21=36:22=1:v$=RIGHTS (ST 
R$lvie),1):a$="f"+v$:GOSUB 1678 
1838 LOCATE x{,y1:PRINT eff$:LOCATE x,y:PRINT eff#$:CALL 
LAGBG, LOBAB,FN x(x),FN yly):FOR t=1 TO SBG:NEXT t:LOCA 
TE x,y:PRINT eff$ 
1848 CALL &ABGS, LOBBA,FN x(x),FN y(y):FOR t=1 TO 6YD:NE 
XT t:LOCATE x, y:PRINT eff$:CALL &AB9S, &9BD4,FN x(x),FN 
y(y} 
1858 IF vieCi THEN 1888 ELSE GOTO 1869 
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>VK 
>XP 
)FG 
>PC 
>TH 
>MQ 
)TY 
>ZN 
XJR 


JL 


JYU 


>RP 
>PY 
)PG 
)TQ 
MG 
)NQ 


KE 


NY 
»XG 
)JM 


)YH 
HZ 


JV 
>VG 
)J 
JW 
NJE 
JJN 
>ZM 
>BQ 
)LE 
)QR 


TN 


>VH 


RG 


KL 


HE 


DA 


D:NEXT 1:G0TO 268$ 


2588 DATA ":RAMASSER TOUT L)OXYSUDRIUM;",6,6 )QC 
2598 DATA ":VOUS PASSEREZ AINSI AU NIVEAU SUIVANT; ",1,8 ET 
2698 DATA ":ATTENTION AU TEMPS=GARDIEN=PIEGES;",3,1#  DAU 
2619 DATA ":S1 VOUS AVEZ PRIS UNE POTION;",5,12 UD 
2629 DATA “:NE PAS RAHASSER D>OXYSUDRIUN;",5, 14 )UU 
2638 DATA ":SEUL LA POTION PERMET DE PASSER; ",4, 16 XX 
2649 DATA ":LES BARRIERES LASER; ",18,18 HV 
2659 DATA ":POUR MONTER POSITIONNEZ VOUS;",5,28 »VQ 
2668 DATA ":SUR UN MAGNETO ASCENCEUR; ", 7, 22 NY 
2679 DATA ":POUR PARTIR=ALLER VERS LA DROITE; ",3,24 »Y2 
2669 CLEAR INPUT:CALL &BB96:a$="":RETURN )JX 
2698 REM AAMEERRENERNNNENENNN >TG 
2799 REX % DATA MUSIQUE TN 
2718 REM WHEN NNENN »TZ 
272$ REM #x DEBUT #+ MQ 
2739 DATA 199,284, 199,284, 199,284, 198,284, 213,319,213,3 >UJ 
19,213, 319,213, 319 

2749 DATA 199,284, 199, 284, 198, 284, 199, 284,213, 319,213,3 DUK 
19,213, 319, 213, 319 

2758 DATA 239,356, 239, 358, 239, 358, 239, 358, 253, 379, 253,3 UF 
79,253, 379,253, 379 

2768 DATA 239,358, 239, 358, 239, 358, 239, 358, 213, 319, 213,3 DUN 
19,213, 319, 213, 319 

277$ DATA 239,358, 239, 358, 239, 358, 239, 358, 213, 319, 213,3 >UP 
19,213, 319, 213, 319 

2788 REH xx CHANGEMENT DE TABLEAU ## )CT 
2798 DATA 426,15, 426, 15,379, 15,379, 45,426, 15,426,15,379 >XM 
,15,379,45, 426,15, 426, 15,379, 15,379, 15, 319,15, 284, 198 

2899 REN HER EnEX >TZ 
2818 REN K DATA TABLEAU x )RB 
2828 REM WIN HEIN »TB 
2839 REM 4x Q1 4x >AK 
2849 DATA 13,4,1,3,4,7,19,4,17,16,8,2,6,8,12,17,12,7,11 oUJ 
,12,17,18,14,1,3,18,1,6,18, 19, 13, 18,19, 29,28, 1,1,22,1,4 

2, 3,6, 4,28 

2858 DATA 17,2,7,12,7,14,7,7,11,9,11,11,11,17,11,18,11, >DA 
1,13,3,13,1,17,3,17,5,17,19,17,12,17,28,17,2,21,2,9,3,1 

7,3 

2868 DATA 4,11,8,19,12,5,24,16,24,9,9,5,2,19,22,9758  DRR 
2879 REM #4x 92 #44 )BE 


2888 DATA 19,4,3,8,4,19,12,8,8,8,8,13,15,19,2,6,14,2,6, AG 
14,14,16,18,2,14,29,2, 16,29, 18,29,4,2,12,2,16,6,16,19,2 

2 

2899 DATA 27,3,3,4,3,5,3,6,3,7,3,8,3,11,3,14,7,15,7,2,9 3XJ 
2 9,4,9,5,9,6,9,7,9,14,13,15,13,16,13,4,17,7,17,8,17,9 
117,19,17,11,17,12,17,13,17,14,17,3,12,3,8,7,4,13 

2988 DATA 4,9,8,7,18,1,24,17,24,0,8,4,6,19,22,9759 >PP 
2919 REN #xx 93 ##4 >BA 
2929 DATA 19,6,3,6,6,15,18,8,5,6,8,15,16,19,8,13,14,4,1 )QY 
7,18,1,1,18,3,17,28,19,28,22,3,6,3,3,28,6,28, 19,22 

2938 DATA 37,3,5,4,5,5,5,6,5,16,5,17,5,18,5,7,9,8,9,9,9 >CD 
,19,9,11,9,12,9,13,9,14,9,4,13,5,13,6,13,7,13,9,13,18,1 
3,12,13,14,13,15,13,16,13,17,13,1,17,4,17,7,17,18,17,13 
,17,16,17,19,19,28,19,4,21,1,23,2,23,3,15,5,11,13,5,21 

2949 DATA 6,7,18,14,18,2,18,2,24,7,24,18,24,9,9,11,3,13 DEA 
, 22, 8888 

2958 RE #44 ÿ4 #44 )BF 
2968 DATA 28,4,2,19,6,2,2,6,13,16,6,18,29,8,2,2,8,12,12 DQT 





,19,2,2,18,13,16,12,2,2,14,2,2,14,6,9,14,12,16,14,18,18 
,16,2,2,16,7,8,16,13,14,18,2,2,18,7,8,18,13,14,18,18,28 
19,19, 19, 29,2,2,28,7,8,29,13,14,22,2,2,22,7,8,22,13,14 
, 22,16, 18,3,16,8,14,12,18,16 

2978 DATA 23,2,3,3,3,4,3,5,3,6,3,7,3,8,3,9,3,18,3,18,5, 
28,5,13,9,14,9,15,9,19,18,11,18,29,17,16,21,17,21,18,21 
,9,23,11,23,12,23,3,19,5,12, 7,19, 23 

2989 DATA 4,17,14,11,19,1,24,9,24,9,8,16,2, 1,22, 8688 
290f REM #4x 95 #4x 

3898 DATA 9,2,6,7,4,19,14,6,6,8,6,19,11,8,19,11,8,13,28 
,12,9,14,16,11,14,29,16,17,4,6,4,14,6,19,19,12,14 

3818 DATA 24,19,3,11,3,13,3,14,3,7,5,8,5,9,5,15,7,9,11, 
11,11,12,11,11,15,5,23,6,23, 7,23,9,23,19,23,11,23,13,23 
,14,23,15,23,17,23, 18,23, 19,23,4,12,3,16,7,14,11,16,19 
3928 DATA 4,9,6,15,29,5,24,18,24,8,8, 4,4, 12, 22, 8658 
3939 REM xxx 96 xx 

3849 DATA 15,4,19,19,6,8,8,6,12,12,8,6,6,8,9,12,8,14,14 
,18,4,4,18,12,13,19,16,16,12,4 4,12,9,18,14,17,17,16,4, 
7,16,9,17,29,4,17,4,9,19,4,14,9,14,14,14 

3858 DATA 22,8,5,9,5,12,5,14,7,4,9,5,9,15,9,17,11,16,15 
,19,15,19,17,4,19,5,19,6,19,18,19,11,19,12,19,13,19,14, 
19,19,19,19,21,19,23,4,19,3,16,9,19,11,8,19 

3869 DATA 8,9,6,11,6,7,8,13,8,5,19,15,19,8,16,3,24,9,8, 
2,6,2,22,985ÿ 

3978 REM «4x4 97 xxx 

3989 DATA 14,4,19,13,8,1,2,8,4,8,8,18,11,8,13,29,19,5,5 
,12,5,5,12,7,7,12,19,15,16,1,2,16,4,9,16,15,16,2#,B,13, 
29,17,28,5,19,6,13,6,5,14,7,14,18,22 

3999 DATA 33,18,3,1,7,2,7,4,7,5,7,6,7,7,7,8,17,11,7,14,7 
,15,7,16,7,17,7,19,7,29,7,13,11,14,11,15,11,1,15,2,15,4 
,15,15,15,16,15,8,19,9,19,19,19,12,19,13,19,17,19, 18,19 
, 28,19, 19,23, 28,23,5,11,3,18,7,6,15,11,19,19,19 

3198 DATA 3,9,8,3,24,16,24,8,8,11,19,5, 22, 9899 

3119 REM xxx DB xx 

3128 DATA 11,4,3,14,6,5,5,8,18,14,8,16,17,19,1,5,12,19, 
14,16,3,6,16,18,14,16,16,18,19,7,7,28,14,18,4,12,6,5,8, 
12,18,12,14 

3139 DATA 24,4,3,6,3,8,3,19,3,12,3,14,3,18,7,11,7,13,7, 
15,7,17,7,2,9,3,9,4,9,19,11,3,15,4,15,5,15,19,15,13,15, 
15,15,17,15,16,19,18,19,4,1,9,11,15,7,18,14,19 

3149 DATA 5,15,8,9,12,15,16,2,24,19,24,9,9,18,12,5,22,8 
659 

3159 REM #44 99 xxx 

3169 DATA 19,5,3,14,7,16,16,9,5,8,11,19,17,15,4,11,15,1 
6,18,19,1,1,19,3,4,29,9,12,29,15,19,5,16,9,18,13,17,13, 
9,22,11,22 

3179 DATA 31,4,4,6,4,8,4,18,4,14,4,15,6,5,8,6,8,8,8,19, 
19,12,19,14,19,4,14,5,14,6,14,8,14,9,14,2,18,4,18,9,19, 
19,19,11,19,12,19,15,19,17,19, 19,19, 19,23,15,23,16,23,1 
9,23,28,23,5,12,4,7,8,16,14,3,18, 13,23 

3188 DATA 4,15,7,9,11,2,19,5,24,5,1,24,2,24,3,24,16,24, 
17,24,8,9,2,4,22,1358 

3199 REM ##4 19 #4x 

3288 DATA 11,4,2,18,8,3,8,8,17,18,8,29,28,12,3,8,12,18, 
15,12,18,28,16,3,5,16,11,16,28,7,9,29,11,16,4,17,6,6,19 
,4,14,15,18 

3218 DATA 37,2,3,4,3,6,3,8,3,18,3,12,3,14,3,16,3,18,4,6 
,7,7,7,8,7,18,7,3,11,4,11,8,11,19,11,14,11,15,11,16,11, 
18,11,19,11,29,11,5,15,12,15,13,15,15,15,16,15,7,19,18, 


29 


AJ 
>U 


YAK 
UC 


1869 FOR t=1 TO 158B:NEXT t:CLS H1:ERASE jeu:DIM jeu(28 
,25):pot=f:tin$="":a$="":b$-"":GOTO 388 


>CP 


1879 REM xx GAME OVER *+# )QQ 
1889 vide=REMAIN(#):tim=f:vie=3:pot-f:vert=f:tfin-f:tin >WW 
$=M"ia$="":p$="":LOCATE 3,12:PEN 14:PRINT "THE GAME IS 
OVER" 
1898 CALL &BCA7:SOUND 1,1988,8, 15, 4: SOUND 2,998,9,15,4: )QA 
SOUND 4,898,4,15,4:ERASE jeu:DIM jeu(29,25):FOR t=1 TO 
SAGB:NEXT t:CLS:GOSUB 2939:sc=ÿ:ta=1:G0TO 348 
1999 REM **x CHANGEMENT DE TABLEAU #+ >)CK 
1918 vide=REMAIN(#):ta=ta+i:CLS H:PEN 14:LOCATE 6,12:P >BN 
RINT'BONUS TIME":LOCATE 5,14:PRINT "SCORE + ";b$:ERASE 
jeu:DIM jeu(29,25):pot=f:sc=scttin:GOSUB 1718 
1929 FOR i=1 TO 14:SOUND 1,note2(i),duree(i),15:SOUND 2 )QY 
,note2(i)#2, duree(i),15:SOUND 3,8,1,9:NEXT i:FOR t:1 TO 
J5A:NEXT t:CLS #i:tim-9:GOTO 388 
1938 REN xx GESTION DU TEMPS xx XP 
1948 DI:SOUND 4,253,18,15:tim=tim-59:1F tin<58 THEN GOT >Y4 
0 2818 ELSE ti$=RIGHT$(STR$(tin),LEN(STRS(tim))-1) 
1959 IF tim(99 THEN b$="#g"+ti$:GOTO 1989 >GN 
1969 IF tin(999 THEN b$="g"+tis$:GOTO 1984 )GX 
1979 b$=tis$ >TG 
1988 b$=UPPERS(b$):FOR j=1 TO LEN(D$):5p2=(ASC(MID$(b$, >KN 
j,1)))-48 
1999 IF sp2<8 OR sp2>42 THEN sp2=43 >BD 
2888 CALL &9888,FN po(23,1)+(jx2),8982ÿ+(sp2x16):NEXT j >LA 
:EI RETURN 
2818 El:vide=REMAIN(#):tfin-i:tin-g:b$="2899":GOSUB 198 DNG 
9 : RETURN 
2828 REN #x RECORD BATTU ? #4 )VB 
2839 IF sc>hi THEN hi=sc:GO0TO 2849 ELSE RETURN >PK 
2848 hi$=STR$(hi):1hi=LEN(hIS)2his$=RIGHTS(hi$,lhi-{) AB 
2858 IF hi<(9999 THEN score$="gg"+this$:G0TO 2478 )PL 
2868 IF hi<99999 THEN score$="ÿ"+this$ )DV 
2878 PEN 14:LOCATE 3,1:PRINT "RECORD BATTU !!!" DU 
2888 LOCATE 1,5:PEN L:PRINT "Votre nom: ........ , )VH 
2998 IF taC5 THEN planet$="SOLARIS":zz2=ÿ:GOTO 2129 VA 
2198 IF ta<9 THEN planet$="HOYOBOS":2z2=4:G0T0 2129 WG 
2119 IF ta(13 THEN planet$="POLARIS":z22=8:G0T0 2129 EL DNL 
SE planeté="TITANIS":222:12 
2129 zz=ABS(2z2-ta):22$=STR$(z2z):mine$=RIGHT$(2z$,1) AC 
2138 nane$="":nan$="":1g=ÿ UK 
2149 tche$=UPPER$(INKEYS):IF tche$="" THEN 2149 )PC 
2158 IF tche$=CHR$(127) AND 1829 THEN Ig=1g-1:nam$=LEFT )ZC 
$(nan$, 1g):GOTO 2228 
2168 IF tche$=CHR$(32) THEN 2289 )YN 
2179 IF tche$=CHR$(13) THEN 2239 )YR 
2188 IF tche$=CHR$(46) THEN tche$=CHR$(68):GOTO 2288  )VY 
2198 IF (ASC(tche$)>47 AND ASC(tche$)<58) OR (ASC(tches$ DLF 
164 AND ASC(tche$)<91) THEN 2298 ELSE GOTO 2148 
2288 nam$=nan$+tches$ >)PZ 
2218 Ig=1gti:IF 1g=8 THEN 2238 )XJ 
2224 PEN 2:LOCATE 12,5:PRINT nam$;STRING$(8-1g,"."):G0T )GH 
0 214ÿ 
2230 nane$=nan$+STRINGS(B-1g,"<*):PEN f4:LOCATE 12,5:PR DET 
INT nane$:nan$="":1g=f 
224$ CLS :RETURN )LL 
2258 REH #* FIN DU JEU #4 )QU 


2269 vide=REMAIN(#):tin=8:CLS #1:PEN 14:LOCATE 8,9:PRIN DYN 


T "BRAVO! ":LOCATE 3,11:PRINT "VOUS AVEZ REUSSI" :LOCATE 
4,13:PRINT "VOTRE MISSION!":FOR t=1 TO GSBY:NEXT t:CLS 

#i 

227$ LOCATE 5,9:PRINT"EXTRA BONUS:":PEN B:LOCATE 3,13:P DTC 
RINT "SCORE + 2988 PTS":sc=5c+2899:G0SUB 1719:F0R t:1 T 

0 5SBG:NEXT t:CLS H1:PEN 1:LOCATE 5,18:PRINT "THE E 

N D":FOR t=1 TO G5BD:NEXT t:CLS #1 

2288 CLS:GOSUB 2838:sc-ÿ:ta={:tin=f:vie:3:pot=f:vert:9: DCT 
tfin=fitim$="":a$="":b$="":ERASE jeu:DIM jeu(29, 25) :CLS 
:GOTO 349 


2298 REN #RERAEREENERIERINENNX TC 
2398 REM # PRESENTATION x >UQ 
2319 REN RHXXXHIE RME TV 
2328 LOAD"OXYSUDIS.PRE",&CO90 »2D 


2338 duree=28:G0SUB 2349:1F p=1 THEN GOTO 2369 ELSE dur 
ee=15:GOSUB 2349:1F p=1 THEN GOTO 2368 ELSE GOTO 2338 

2349 FOR i={ TO 89:SOUND 1 ,noteli), duree, 14, { : SOUND 2,1 
NT(note(i)/2),duree, 12, 1:SOUND 4,note(i)#4, duree, 15,1:1 

F INKEY$<)"" THEN p=1:CALL &BCA7:RETURN 

2359 NEXT i:RETURN 

2369 INK 15,4:CLS:CALL 4A988,&9538,FN x(7),FN y(1):TAG: 
MOVE 224,387:a$="XYSUDIS":p=1:FOR i=1 TO 7:GRAPHICS PEN 
p:PRINT HID$(a$,i,1);:p=p+i:IF p=6 THEN pi 

2378 NEXT:TAGOFF:MOVE 9,361,2:DRAUR 649,9,2:21=14:22=4: 

a$=": DDS 1991 ;":GOSUB 1674:MOVE 224,329,3:DRAUR 192,4 
4 

2388 WINDOW #2,1,28,6,25:PAPER #2,9:CLS #2 

2399 RESTORE 2498:FO0R 1=1 TO 19:READ a$,z1,z2:G0SUB 167 

S:NEXT J'CLEAR INPUT:CALL &BBBG6:CLS #2:G0T0 2588 


)VP 


XKC 


)Nu 
)LE 


JL 


>HQ 
>RQ 


2499 DATA ":SUR TERRE=UNE PENURIE D)ENERGIE SE;",2,6  >AG 
2419 DATA ":FAIT SENTIRC<<ON VOUS CONFIE ALORS;",2,8  DAD 
2429 DATA ":LA MISSION DALLER QUERIR L>0XYSUDRIUM;",8, »GB 
19 

2438 DATA ":UNE SOURCE DOENERGIE FABULEUSE EN;",2,12 AM 
2449 DATA ":ABONDANCE SUR LES 4 PLANETES DU;",3,14 >XM 
2458 DATA ":SYSTEME PLANETAIRE OXYSUDIS<<<;",4,16 XL 
2469 DATA ":ATTENTION=4 GARDIENS VEILLENT SUR;",2,18  >BR 
2478 DATA ":CHACUNE DES MINES DES 4 PLANETES;",3, 29 >XP 
2489 DATA ":ET LE TEMPS VOUS EST COMPTEC<(;",4,22 NL 
2498 DATA ":FAITES VITE ET BONNE CHANCE{((;",4,24 D) 


2588 POKE &8FFD,8:CALL &AGD, &959A,FN x(1),FN y(6):CALL HD 
&A9BO, L9578,FN x(1),FN y(19):POKE LBFFD, 16:CALL LAPS, 
LOGEA, FN x(1),FN y(14) 
2518 POKE &GFFD,B:CALL LA9GB, 495C4, FN x(28),FN y(6):CAL DRP 
L LADAO, LOSEE, FN x(29),FN y(19):CALL RABOS, 89618, FN x(2 
ÿ),FN y(14) 
2528 POKE &GFFD, 16:CALL &AB9, 4977E,FN x(9),FN y(17)  DTF 
2539 CALL LAGGD,8993A,FN x(7),FN y(22):CALL &A98B, 49984 DFZ 
FN x(9),FN y(22):CALL &AGDB, &OA1B,FN x(11),FN y(22) :CA 

LL &AGB, LOAAC, FN x(13),FN y(22) 
2548 RESTORE 2559:FOR 1:1 TO 12:READ a$,z1,z2:G0SUB 167 >WM 
B:NEXT 1:GOTO 2568 
2558 DATA "POTION", 3,6, "PROTECTRICE", 8, 7, "OXYSUDRIUM", 3 >BK 
18, "BARRIERE", 3, 14, "LASER", 8, 15, "HAGNETO", 23,6, "ASCENC 
EUR", 28, 7, "MINE DPIEGE)", 23, 18, "ACIDE DPIEGE)", 23, 14, "V 
OUS",18,18,"LES 4 GARDIENS", 12, 29, ":UTILISER LA MANETTE 

OU LES FLECHES:", 2,25 

2568 CLEAR INPUT:CALL &BB96:CLS 42 >BD 
2579 RESTORE 2589:FOR 1=1 TO 19:READ a$,zt,z2:G0SUB 167 DUD 
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19, 12,19, 14,19, 16,19,17,19,18,23, 19, 23,28, 23,4,5,7,29,7 
,12,11,8,19 

3229 DATA 7,19,8,9,12,16, 12,2, 16, 19,29, 17,28,1,24,19,3, ZA 
8,4,6,14,16,2,24,3,24,4,24,5,24,6,24,7,24,8,24,9, 24,18, 
24,11,24,12,24,13,24,14,24,15,24,16,24,17,24,9,B,14,1,2 
2,9859 

3239 REN ##x 11 #xx >AF 
3249 DATA 29,2,28,28,4,4,18,4,29, 29,6, 28,28,8,3,5,8,7,8 WW 
,8,12,13,8,16,18,8,28, 28,19, 28,28,12,3,5,12,7,8,12,11,1 
1,12,18,13,12,15,16, 12,29, 29, 16,2, 18, 2,2,5,28,12, 14,28 
117,29,5,12,6,17,6,4,19,11,14,3,18 

3259 DATA 37,5,3,7,3,9,3,11,3,13,3,15,3,17,3,3,7,4,7,5, DQT 
7,7,7,8,7,16,7,18,7,3,11,5,11,7,11,8,11,13,11,16,11,2,1 
5,4,15,6,15,8,15,19,15,13,15,15,15,17,15,19,15,1,19,4,1 
9,5,19, 14,19, 18, 19,16, 23,18, 23,28,23,5,6,11,11,11,15, 11 
,12,19, 13,19 

3268 DATA 6,6,12,14,12,19,16,1,28,6,24,11,24,4, 12,24, 13 DMN 
,24,14,24,15,24,9,19,6,4, 22,118 

3278 REM #4* 12 #44 >BA 
3288 DATA 24,2,1,29,4,9,12,6,2,7,6,9,12,6,14,17,6,19,28 >YD 
18,2,2,8,18,12,19,2,8, 19, 19,28,12,2,2,12,19,12,14,2,92,1 
4,6,8,14,19,12,14,14,16,14,19,19,16,2,2,16,10,16,18,2,4 
,18,19,17,29}2,2,28,18,17,22,2,5,2,5,8,11,18 

3299 DATA 29,2,5,4,5,6,5,14,5,15,5,17,5,29,5,3,9,7,9,29 >ZR 
19, 7,13,8,13, 13,13, 15, 13,16,15,3,17,4,17,5,17,17,17,28, 
23,2,16,5,6, 13 

3399 DATA 7,13,14,5,18,18,28,6,22,1,24,7,24,9,24,3,18,2 DWJ 
4,11,24,12,24,6,14,24,15,24,16,24,17,24, 18,24, 19,24, 15, 

18, 1,22, 9689 

3318 REH #44 13 44% )AG 
3329 DATA 16,5,4,17,9,2,2,9,4,9,9,12,17,9,19,19,19,19,1 >ZH 
1,14,4,8,14,19,11,14,13,17,16,19,11,18,1,8,18,19,11, 18, 
13,19,28,1,8,28,18,11,29,13,29,3,15,16, 14,22, 19, 22 
































3338 DATA 29,4,4,6,4,8,4,18,4,12,4,14,4,16,4,2,8,5,8,7, )EH 
8,9,8,12,8,15,8,16,8,17,8,19,8,3,13,5,13,7,13,13, 13,15, 
13,18,13,1,17,5,17,7,17,14,17,17,17,16,23,17,23,3,B,8,1 
3,8,3,17 

3348 DATA 5,3,14,18,14,28,18,9,24,12,24,3,19,9,11,9,13, DFL 
18,4,19,14,11,14,18,24,11,24,19,12, 1, 22, 1288 

3359 REM #4x 14 xxx )BB 
3369 DATA 12,4,4,5,4,12,12,4,14,17,6,7,7,8,19,11,12,5,1 MF 
2,14,16,28,16,8,14, 18, 18, 18,28, 7,9,289,12, 14,28,18,19,4, 
18,16,8,18,8,22,13,22 

3378 DATA 24,4,3,5,3,12,3,15,3,17,3,7,5,11,7,6,11,8,11, >ZP 
19,11,12,11,17,13,19,13,19,15,12,15,14,15,7,19,9, 19, 19, 
19,1,23,2,23,5,23,7,23,9,23,4,6,5,18,7,29,13,12,23 

3388 DATA 4,6,6,13,12,3,24,17,24,2,18,24,11,24,2,18,24, DUB 
19,24,16,19,3,22,8788 

3398 REM #44 15 xxx )BG 
3499 DATA 13,4,1,1,4,3,5,4,16,18,4,29,29,8,7,8,8,13,14, >XH 
12,18,11,16,7,8,16,13,14,29,1,1,29,3,5, 28,16, 18,28,28,2 
9,4,5,22,16,22,18,22,29,22 

3418 DATA 24,1,3,4,3,16,3,18,3,28,3,7,7,8,7,13,7,14,7,1 DKD 
9,11,11,11,7,15,8,15,13,15,14,15,4,19,6,19,17,19,4,23,6 
,23,8,23,13,23,14,23,15,23,3,17,3,7,23,17,23 

3428 DATA 6,6,28,15,28,2,24,9,24,12,24,19,24,2,19,24,11 >DJ 
,24,1,3,24,16,18, 1,22, 1889 

3439 REM #44 16 #4 BC 
3449 DATA 19,4,1,3,4,5,11,4,13,18,8,5,12,12,2,7,12,15,1 DC 
8,16,1,6,16,18,15,29,1,18,28,29,29,7,5,6,11,6,2,14,6,14 

, 3, 18,6,18,28,22 

3458 DATA 22,1,3,3,3,13,3,15,3,17,3,7,7,9,7,3,11,6,11,1 DNU 
5,11,17,11,18,11,4,15,11,15,15,15,1,19,7,19,9,19, 13,19, 
15,19,17,19,29,19,7,2,3,16,11,5,15,13,15,4,19,5,19,11,1 
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3468 DATA 2,4,8,19,24,9,8,15,8,1,22, 1988 )ER= 


Ne passez plus de temps à taper les 
listings et évitez d'user vos petits 
doigts manucurés avec les disquettes 
CPC Infos. 

Dans la disquette 35 vous trouverez les 
programmes de CPC Infos n°31 et n° 32 : 


+ MARK ERROR 
+ MOUSE 
e PAC BALL 2 
+ SQUARES 
+ PROGRAMMES POUR INTERFACE MIDI 
+ LA SUITE DES LISTINGS D'AXYS 


CPC INFOS N°35 


voir bon de commande page 44 
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DUCHET COMPUTERS 


51, Saint-George Road CHEPSTOW - NP6 5LA 
ANGLETERRE - Tél. + 44 291 625 780 


EN EXCLUSIVITE : 

MATERIEL ET LOGICIELS EN FRANÇAIS POUR 
AMSTRAD/SCHNEIDER 464/664/6128 A DES PRIX 
PLANCHER ! 








PUBLICATION ASSISTEE PAR ORDINATEUR POUR CPC 6128 
(Les CPC 464+DD1/664 nécessitent une extension mémoire DK Tronics 64K) 


OXFORD P.A.0. 


Un FANTASTIQUE progiciel en FRANÇAIS pour créer facilement vos mises en page. 
La disquette 3” comprend 350 Koctets de programmes, fichiers, projets, icônes, motifs, figures géométriques, bordures, 
28 fontes de caractères, etc. aisément redéfinissables. 

Créez facilement vos documents, fontes, dessins, icônes, etc. 

Intégrez texte, vos copies d'écran personnelles, etc. à vos documents. COMPATIBLE + 

Edition, copie et mouvement de blocs de travail entiers. 

Edition et création de caractères, motifs, dessins, etc. à un demi pixel près. 

Zoom, effets miroir, vidéo inversé, ‘tête en bas”, etc. 

Compatible avec SOURIS Siren (et AMX), manettes ou clavier et avec imprimantes matricielles AMSTRAD (sauf DMP1), EPSON et COMpAIRISS, 
et de type IBM. 

Copies imprimées multiples, échelle à 100 %, à 50 %, à 25 %. 
Nombreuses possibilités, de l'impression légère rapide à l'impression de précision ‘‘une aiguille” en très haute résolution. 
Entièrement en français. Manuel complet très détaillé en français. Enfantin à utiliser. 


OXFORD P.A.O. sur disquette 3” pour CPC 6128 
(ou 464+DD1/664 avec 128K) ne vaut que .................................... 250,00 FF port compris 
(Pour expédition hors Europe ajouter 10 FF SVP) 


BIG FLASHER Plus de 200 Koctets de RSX et progiciels utilitaires en français, extrêmement simples à utiliser !, 


Plus de 130 options d'exploration, édition, recherche, création, manipulation, information, compactage, formatage, archivage, copie, gestion d'impri- 
mante, création de posters de 8 pages. programmation de touches. calculations. copies d'écrans, double PEEK, doubie POKE, tri de données, 
traceur. gestion de couleurs. input, call, analyses. etc. 

Toutes les RSX peuvent être incorporées dans des programmes personnels. La plupart des options comportent un envoi facultatif sur imprimante. 
Compatible clavier, manette et souris AMX. 
Enorme manuel en français, bourré d'exemples. COMPATIBLE + | 

BIG FLASHER (DISC 3") en français pour CPC 464/664/6128 ne vaut que Re 200,00 FF port compris 
(Envoi avion hors Europe + 20 FF SVP) 
















TRANSFERTS CASSETTE - DISQUETTE 


N EM ESIS EXPRESS 4 Le progiciel de transfert universel 


Heureux propriétaire d'un lecteur de disquettes, avez-vous un ou deux problèmes à trouver un logiciel de transfert extraordinaire pour archiver 
votre collection de cassettes sur des disquettes ? 

Ne vous tapez plus la tête contre les murs ! D'abord ça fait mal, et puis ça peut réveiller les voisins !.. Procurez-vous NEMESIS EXPRESS4... 
NEMESIS EXPRESS 4 comprend 130 programmes utilitaires sur les deux faces d'une disquette ! 

NEMESIS EXPRESS 4 possède un “renifleur” automatique qui vous indiquera la meilleure façon de transférer vos cassettes. 

NEMESIS EXPRESS 4 est le plus puissant logiciel de transfert K7/DISC en Grande-Bretagne. 

NEMESIS EXPRESS 4 est universel. Il transfère les cassettes nouvelles, récentes ou même anciennes ! COMPATIBLE + 
NEMESIS EXPRESS 4 détecte le compteur de vies des jeux pour modifications. 

NEMESIS EXPRESS4 pour 464/664/6128 est en français. Il est accompagné d'un manuel complet et extrêmement détaillé en français. 


NEMESIS EXPRESS 4 (Disc 3”) en français ne vaut que ........................................... 200,00 FF port compris 


(Envoi avion hors Europe + 20 FF SVP) 
Rajoutez 30 FF et nous joindrons les détails de transfert de 1500 cassettes avec NEMESIS EXPRESS 





Les produits ci-dessus sont en stock et disponibles EXCLUSIVEMENT en vente par correspondance 
chez DUCHET COMPUTERS. Ils ne sont pas en vente dans les magasins. 


Envoyez vite votre commande (en français) à 


DUCHET COMPUTERS 
51, Saint-George Road CHEPSTOW - NP6 5LA 
ANGLETERRE - Tél. + 44 - 291 625 780 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le monde entier 


REGLEMENT A L'ORDRE DE ‘‘’DUCHET COMPUTERS" par : + Mandat Poste International en Francs - Chèque personnel français bancaire 
ou CCP en Francs + EUROCHEQUE personnel en livres sterling (vous faites la conversion) CHEQUE BANCAIRE en livres sterling compensa- 
ble en Angleterre établi par votre banque + Carte de crédit internationale VISA, EUROCARD, MASTERCARD, ACCESS (indiquez n° de carte 
et date de validité, mais n'envoyez pas votre carte). | "5 Es 

Si vous êtes pressé, passez votre commande par feléphone EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au (indicatif international) + 44 291 625 780 de 8h à 19h 


Nous acceptons les commandes par téléphone avec cartes de crédit. 





Créez de multiples 

graphismes 
synthétiques avec un 
automate cellulaire. 


LE PRINCIPAL 
DE L'AUTOMATE 


Au départ 

Il faut amorcer l'automate. Pour 
cela on lui fournit : 

— une formule, supposons : 1013312. 
- une ligne de début : 

On prend une liste de nombres 
(supposons aléatoires). 

On associe une couleur à la valeur 
de chaque nombre (si 1 : rouge, 2: 
vert, etc). 






































>. 





A 


à à 
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On trace une ligne dont la couleur 
de chaque point correspond à la 
valeur de chaque nombre. 

On place 0 en début et en fin de 
ligne. 


0 1 2 3 4 — X 
Ligne début : 2 2 
vert vert 


Le fonctionnement 

Mettons-nous à la place de l'auto- 
mate et suivons son tricotage maille 
à maille. 





Prenons le point après le 0, appe- 
lons-le x(1). 

On prend sa valeur : 2=x(1). 

On lui ajoute la valeur du point pré- 
cédent : 2=0+2=x(0)+x(1). 

On lui ajoute la valeur du point sui- 
vant : 5=0+2+3=x(0)+x(1)+x(2). 

On dispose d'une somme : 5=x(0)+ 
xX(1)+x(2). 

Utilisons la formule : 

la somme=5, on prend le chiffre de 
la formule de rang 5, on obtient 1: 


1=formule (somme). 
Sommez=3 Rang: 
Formule : 


0123456 
1013312 Obtenu:1 





Figure 1 


NEXT y 


Sous le point x(1), on trace un point 
de la couleur correspondant au 
chiffre couleur rouge. 














Ligne début : 0 | 2 





Ligne suivante : 














On se décale sur le point suivant 
x(2), on recommence le processus, 
X(1)+x(2)+x(3)=6, formule (6)=2, on 
trace sous x(2) un point de couleur 
2. On fait cela jusqu'au bout de la 
ligne, on place 0 en début et en fin 
de ligne : une 2ème ligne a été tra- 
cée sous la lère. 

On se déplace sur la ligne suivante, 
on recommence, cela jusqu'à for- 
mer une image complète. 











































tu 

















Le 





VA 
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L'ALGORITHME 


Au lieu de points, on parle de cellu- 
les. La cuisine ci-dessus peut s'écri- 
re, façon BASIC (voir figure 1). 


En BASIC, remplir un écran en mode 
1 prend 12 minutes, contre 2 secon- 
des en assembleur. 


LES POSSIBILITES 
MULTIPLES 


Modifier la ligne de début modifie- 
ra l'aspect du graphisme créé. 
Changer la formule changera la 
sctructure du graphisme. La formule 
est composée d'un maximum de 28 
chiffres, chaque chiffre entre O0 et 
9: les combinaisons possibles sont 
considérables, libre à vous de les 
explorer. 


LE PROGRAMME 


Lancer d'abord ACDATA qui créera 
le fichier AC.BIN, puis lancer le pro- 
gramme BASIC. 


Les formules 

Pour choisir une formule, lister le 
BASIC, supprimer la formule valide 
(EDIT puis REM), puis valider la for- 
mule choisie (EDIT puis supprimer 
REM). 


Le menu 

L'option Début détermine la ligne de 
départ : 

- Aléatoire. 

- Symétrique : (le mieux pour tester 
une formule) : la 1ère moitié de la 
ligne aléatoire, la 2ème moitié sy- 
métrique à la 1ère. 

- Milieu : tous les points valent 0 
(noir), sauf le milieu qui vaut 1. 

- Précis : indiquer, à la suite de la 
formule, la valeur des points voulus : 
tLO=v, ventre 0 et 9, x entre 0 et 320 
simode 1, entre 80 et 240 si mode 0. 





On peut choisir le Mode 0 ou 1, 
(pour tester Une formule, essayer 
d'abord mode 1), et afficher l'ima- 
ge façon Scan (balayage écran) ou 
Scroll. ° 

Back vous ramènera un écran en 
arrière. 

Run pour lancer l'automate. 

En fonctionnement, appuyer sur es- 
pace pour retourner au menu. 


LA STRUCTURE 
DU PROGRAMME 


BASIC 


SSPRGM INITIAL ASSEMBLEUR 
création tableau adresses lignes 
RAM écran 1 (#C000) 

création tableau adresses 8 lignes 
RAM écran 2 (#4000) 

copie encres mode 1 dans tableau 
encres mode 1 


RETOUR AU BASIC 

choix et écrire formule dans tableau 
formule 

choix et écrire ligne début dans ta- 
bleau cellules 

choix et écrire type affichage (scan, 
scroll, mode 0, 1) dans switch data 


SSPRGM ENTREE ASSEMBLEUR 

fin interruptions 

sauver 2ème jeu de registres sur pile 
(2ème jeu de registres utilisé par 
DOS lors des interruptions) 


sauver pointeur de pile dans buffer 
pointeur de pile pointe au bas du 
tableau adresses lignes écran 1 
(utile pour scroller en dépilant 
adresse lignes dans les registres 
voulus) 


PSG et port données prêt à entrer 
ligne 6 clavier (touche espace) 
(PSG : Programmable Son Généra- 
teur, qui peut aussi lire le clavier) 
ssprgm restituer haut écran (efface 
le menu en BASIC) 

Initialiser compteur (de lignes ima- 
ge ou de groupe lignes) 

si data en switch data 

=1 : aller à scroll mode 0 

=2 : aller à scan mode 0 

=$ : aller à scroll mode 1 

aller à scan mode 1 


SCROLL MODE 0 

(mode 0 : lignes écran sont dour- 
blées (pour obtenir des points car- 
rés), 

(permet un scrolling en 2 passes, 
plus souple) 

copie lignes paires 4 à 200 vers li- 
gnes paires 2 à 198 

copie lignes impaires 3 à 199 vers 
lignes impaires 1 à 197 

charger adresse ligne 199 

ssprgm automate cellulaire mode 0 
(trace ligne 199, recopie sur ligne 
200, décrémente compteur lignes) 
si touche espace non appuyée 
boucler en revenant à “copie lignes 
paires” 

aller à FIN 
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SCAN MODE 0 

charger adresse ligne 1 

ssprgm automate cellulaire mode 0 
(trace ligne, recopie sur ligne sui- 
vante, décrémente compteur li- 
gnes) 

si écran non terminé 

calcul et charger adresse prochai- 
ne ligne 

boucler en revenant à *ssprgm 
automate cellulaire mode 0” 

si touche espace non appuyée 
boucler en revenant à “charger 
adresse ligne 1” 

aller à FIN 


SSPRGM AUTOMATE 

CELLULAIRE MODE 0 

automate cellulaire trace ligne 

(cf algorithme dans listing assemn- 
bleur) 

copie ligne vers ligne suivante 
décrémente compteur lignes Ima- 
ge 

(100 lignes image formant 200 lignes 
écran) 

si écran terminé 

ssprgm sauve tableau cellule dans 
buffers (pour commande menu 
*Back”) 

RETOUR 


SCROLL MODE 1 

(utilise 2 RAM écran : affichage 
saccadé, mais sans ondulations) 
copie écran 1 (ligne 3 à 200) vers 
écran 2 (ligne 1 à 198) 

charger adresse ligne 199 écran 2 
charger nombre lignes à tracer 


ssprgm automate cellulaire mode 1 
(trace lignes 199 et 200 écran 2, 
décrémente compteur groupes li- 
gnes) 

attendre synchro verticale moniteur 
RAM écran 2 on 

copie écran 2 (ligne 3 à 200) vers 
écran 1 (ligne 1 à 198) 

Charger adresse ligne 199 écran 1 
charger nombre lignes à tracer 
ssprgm automate cellulaire mode 1 
(trace lignes 199 et 200 écran 1, 
décrémente compteur groupes li- 
gnes) 

attendre synchro verticale moniteur 
RAM écran 1 on 

si touche espace non appuyée 
boucler en revenant à "copie écran 
1 vers 2” 

aller à FIN 


SCAN MODE 1 

initialiser compteur de groupe lignes 
modifier valeur initialisation comp- 
teur de groupe lignes 

dans code ssprgm sauve tableau 
cellule dans buffers 

charger adresse ligne 1 

charger nombre lignes à tracer 
ssprgm automate cellulaire mode 1 


(trace 8 lignes, décrémente comp- 
teur groupes lignes) 

si écran non terminé 

calcul et charger adresse prochai- 
ne ligne 

boucler en revenant à “charger 
nombre lignes à tracer” 

si touche espace non appuyée 
boucler en revenant à “charger 
adresse ligne 1” 

rétablir valeur initiallsation compteur 
de groupe lignes 

dans code ssprgm sauve tableau 
cellule dans buffers 

aller à FIN 


SSPRGM AUTOMATE 

CELLULAIRE MODE 1 

automate cellulaire trace ligne 
décrémente compteur lignes à tra- 
cer 

si compteur lignes à tracer > 0 
calcul et charger adresse ligne sui- 
vante 

revenir à “automate cellulaire tra- 
ce ligne” 

(avec scroll : 2 lignes tracées, avec 
scan : 8 lignes tracées) 
décrémente compteur groupe li- 
gnes 





à d 


si écran terminé 

ssprgm sauve tableau cellule dans 
buffers (pour commande menu 
"Back”) 

RETOUR 


SSPRGM SAUVE TABLEAU CELLULE 
DANS BUFFERS (pour commande 
menu Back”) 

copie : buüffer2 -; buffer, buffer — 
buffer2, tableau cellule — buffer] 
flag écran terminé on (pour scan) 
initialiser compteur (groupe) lignes 
(à 100 : cas général : 200 lignes 
écran / 2 lignes écran par boucle) 
(à 25 : cas de scan mode 1 : 200 
lignes écran / 8 lignes par boucle) 
RETOUR 


FIN 

sauver 8 lignes haut écran vers buf- 
fer 

(sur ces 8 lignes s'écrira le menu en 
BASIC) 

rétablir port données en sortie 
rétablir pointeur de pile d'origine 
rétablir 2ème jeu de registres d'ori- 
gine 

rétablir interruptions 

RETOUR AU BASIC 


AC.BAS 


14 "AC AUTOMATE CELLULAIRE )LA 
28 >LB 
38 'Jerone RATIER, 5/99, 6k )LC 
49 ‘utilise AC.BIN, 1g:&269=617, Îk LD 
58 ' )LE 
69 ‘initial DLF 


79 IF HIMEMORSFFF THEN MEMORY &3FFF:LOAD"ac.bin",&8499 >MR 
:RANDOMIZE TIME:CALL &8914’initial 

88 DEFINT a-zaDIM t(329),f(27):entree=k8B4C:switch=4897 >UZ 

F:restihe=4824B:effbhe=&825C:tabcel=L863A:0N BREAK GOSU 

B 519 

98 >LJ 
198 ‘lire foraul )RB 
119 GOSUB 694:FOR i=9 TO LEN(f$)-1:f(i)=VAL(MIDS$(f$,i+1 >YQ 
,1)):1F fCi)THEN az 

129 NEXT )DJ 
139 IF a THEN FOR i=9 TO 27:PO0KE &8C#ÿ+i,f(i):NEXT ELSE >BK 
PRINT CHR$(7):GO0T0 519 


149 ? RF 
159 INK 9,9:INK 1,6:INK 2,18:INK 3,2:INK 4,24: INK 5,8:1 >XC 
NK 6,22:INK 7,16:INK 8,14:INK 9,7:BORDER 9:MODE 1:PEN 3 


169 md=1:a=2:GOSUB 629:m=2:CALL effbhe:GOTO 198 >QA 
179 RJ 
189 a=3 >PG 
199 GOSUB 549:0N m GOTO 229,249, 369,389, 499,429, 449,469 DFF 
, 498,518 

289 ? RC 
218 ‘back >RD 


229 FOR i=tabcel TO tabcel+32ÿ:POKE i,PEEK(i+G631:NEXT: DJT 
FOR i=tabcel+321 TO tabcel+321+329:POKE i,PEEK(i+642):N 
EXT:FOR i=tabcel+642 TO tabcel+642+32ÿ:POKE j,PEEK(i+32 
1):NEXT:GOSUB 649:G0T0 189 

239 ‘debut )RF 
249 m=t:ma=5:m$=" Run Milieu Symetr Aleat Precis Ru >VL 
n Milieu Synetr Aleat ":GÜSUB S44:GOSUR 629:1F m<4 T 

HEN GOSUB 649 

259 ON n GOTO 279,309, 328, 369,348 NY] 
268 ’symetr )RJ 
279 IF ad=1 THEN FOR i=tabcel+{ TO tabcel+1+159:POKE i, >NC 


36 





RND49:NEXT:x=158:FOR i=tabcel+1+169 TO tabcel+1+318:POK 

E i,PEEK(tabcel+i+x):x=x-1:NEXT:GOTO 369 

288 FOR i=tabcel+81 TO tabcel+81+79:POKE i,RNDA9:NEXT:x 

=78:FOR i=tabcel+81+88 TO tabcel+81+15B:PO0KE i,PEEK(tab 
cel+81+x):x=x-1:NEXT:GOTO 369 

299 ‘'aleat 

398 IF ad=i THEN FOR i=tabcel+{ TO tabcel+1+318:POKE i, 

RND49:NEXT:G0TO 368 ELSE FOR i=tabcel+81 TO tabcel+81+1 

58:POKE i,RND49:NEXT:GOTO 369 

319 "precis 

328 ERASE t:DIM t(328):GOSUB 699:x=9:FO0R i=tabcel TO ta 

bcel+328:POKE i,t(x):x=xt{:NEXT:GOTO 369 

338 "milieu 

348 FOR i:tabcel TO tabcel+32:POKE i,Z:NEXT:POKE tabce 
1+169,1 

359 run 

364 POKE switch,atmd*2:CALL entree:GOTO 188 

379 scan 

384 a=2:G07T0 189 

399 'scrol! 

499 a=1:G0T0 189 

419 "node ! 

428 CALL effbhe:md=1:MODE 1:GOT0 188 

439 "node 8 

44ÿ CALL effbhe:FOR i=tabcel TO tabcel+89:POKE i,9:NEXT 
:FOR i=tabcel+249 TO tabcel+329:POKE i,#:NEXT:md=#:MODE 
g:GO0TO 184 

45ÿ "save 

469 PRINT:PRINT:LOCATE 1+9xnd, 1: INPUT"Non image";n$:1F 

LEN(n$):=g OR LEN(n$)>8 THEN 189 

474 CALL restihe:SAVE n$+".AC"+CHR$ (nd+48),b, &CO99, &498 

S:OUT &FA7E, B:G0TO 188'out: stop noteur disc 

488 ‘wait 

499 CALL restihe:CLEAR INPUT:HHILE INKEY$="":WEND:GOTO 
189 

598 ’formul 

519 BORDER 19:MODE 2:INK @,1:INK 1,24:PEN 1:LIST 678-11 

98:END 

529 ? 

534 'affichage menu 

549 NINDON 1,29+28#nd, 1,1 

559 LOCATE 1+3xmd, 1:PRINT MID$(m$, (m-1xmd)*x7+1,7+7*md)C 

HR$(24)M1D$(m$, (m+1)x7+1,6)CHR$(24)MID$(n$, (m+2)x7,7+7+ 

md);:CLEAR INPUT 

569 i$="":UHILE j$="":i$=INKEYS:NEND:i=ASC(i$) 

578 IF i:242 THEN n=n-1:1F m=9 THEN a=ma:G0TO 558 ELSE 

559 

589 IF i=243 THEN a=m+1:1F a=na+i THEN m=1:G0T0 558 ELS 

E 55ÿ 

598 IF i=13 THEN RETURN 

698 GOTO 568 


619 ? 

628 ma:19:m$=" Wait Foraul Back Debut Run Scan 
Scroll Mode 1 Mode 9 Save Wait Formul Back Run 
"RETURN 

639 


649 FOR i=&FF89 TO &FFCF:POKE i,Q:NEXT:FOR i=&F789 TO k 
F7CF:POKE i,B:NEXT:RETURN'efface 2 lignes bas ecran 
658 


)CR 


>RK 
VA 


CZ 
>TC 
>GX 


RF 
DEA 


RH 
RJ 
>TU 
>LB 


>QK 
aY 
)BY 
RJ 
»2D 


RH 
DUE 


)RK 
JD 


>TB 


669 "formules 

678 ’f$="[formulel". formule: 28 chiffres saxinun, de # 
a 9, 

689 "si "Precis", indiquer apres ff, liste t([x))=[vale 
ur]. x:#-328. valeur:1-9 

699 f$-"919230911933235911243456751":t(159)=1:t(168)=3: 
t(161)={’rorschach 

789 "f$="#19239911133"" rorschachl 

719 "f$-"919239911833235911243456712" rorschach2 

728 *f$-"#192399112133""rorschach3 

738 *f$-"9192399113133"" rorschach4 

749 "f$-"#238811133"'effrite 
"f$="091230012933235911243456751"'effrite2 

"f$="9812308129332359112434567513":t(169)=9'effrite 


*1$="0912968129322359132434567513":t(168)=2"cell ve 


*1$="9812962929322359132434567513"" cell verti 
"f$-"9192302189332399912434567513"" veget fd nauve 
"f$-"192891934292"" veget 
*f$="9912131"’ archi 
"f6-"219423893995"'toison verte 
"f$="991213112141235911243456751"" geo fd jaune 
"fs="1913312" "reseau 
*f$="1999313312"’rideau bleu 
"f$="1993193312"'labyr bleu 
*f$="19399911132" "chaine bleu 
"f6="29134292967" "vert 
"f$="2993421288"" pinewood 
"{$="{9913312"" veine bleu 
*f$="199134292"' cell rouge 
"f$-"19280383429"' vegeti 
"f$-"329913931921"" veget fond bleu 
"f$-"99191342923" "cell fond rge 
*f$="99111362923863" "cell fond rose 
"15="99195362#23963891"" cell fond vert 
*f$-"991953629239631"" fleur fond rge 
"f$="991953629239638"" chaine fond rge 
"f$="0111153629939638991"’ cell fond rgel 
"f$="911115262987ÿ638991"" byzance 
"f$="5111192629979638991916234"" byzancet 
"fs="99991322823"" ping-pong 
*f$="3991123131"" lampion 
'f$="6884116299339231" cell bleu fd vert 
"fs="3992119290231"" tapisserie 
"f$="9131123"" court 
"f$="99239911133"" paon 
'f$="912131"'bof 
"f$="99131213"" marbre vert 
"f$="998131213"'arlequin 
*f$="2991313213"" dentel bleu 
'f$="4981313212""araignee 
”f$="49812132192""zarbi 
'f$="49812139192""bizar 
*f$="499121389152"" mushroon 
'f$="4#81314219192"" fd rge cell noir 
"f$="68921234266191"" inca fd vert 
'f$="12891331821""neige 
”f$="9328813131921" "archi vert 


998 

1999 
1919 
1929 
1939 
1949 
1959 
1869 
1979 
1989 
1999 
1199 
1119 
1129 
1139 
1149 
1159 
1168 
1179 
1189 
1198 


3/7 





>TC 
>TD 


)TE 


>GA 


RH 
RJ 
)RK 
>TA 
>TB 
>TC 
TD 


TE 


)TF 
>TG 
RJ 
>RK 


. DTA 


»TB 
TC 





129$ RETURN )EG 
1219 ? >XG 
1228 ‘pour charger image node Ÿ: )XH 
1239 MODE 9:INK 9,8:INK 1,6:INK 2,18:1INK 3,2:INK 4,24:1 )GL 
NK 5,8:1INK 6,22: INK 7,16:1NK 8,14:1NK 9,7:LOAD''inage. AC 
Q":CLEAR INPUT:WHILE INKEY$="":WEND: END 

1248 ‘pour charger image mode 1: >XK 
1258 MODE 1:1INK ,8:INK 1,6:INK 2,18:INK 3,2:LOAD'"image MK 
.ACI":CLEAR INPUT:UWHILE INKEY$="":VEND:ENDE 


ACDATA.BAS 


18 "ACDATA cree AC.BIN pour AUTOMATE CELLULAIRE 

28 ‘Jerome RATIER 5/98 

38 

4g 'KEY 18,"data ,,,,,,," 

59 REM touche pave numerique [.] 

68 ! 

78 DEFINT a,c,d,f:MEMORY &7FFF:deb=k8900:fin=&8269+6:e$:"Erreu 
r data" 

84 DIM r(9):r(9)=7812:r(11:7368:r(2)=7860:r(3)=8195:r(4)=7928: 
r(5):8253:r(6)=7886:r(7)=7697:r(8):31496:r(9):31513 

99 ! 

199 FOR a=deb TO fin:READ d$:d=VAL("&"+d$):POKE a,d:5=s+td!NEXT 
IF sOr(8)+r(9)THEN PRINT e$:f=1 

119 ? 

128 "control data par sonmateur croise 

139 FOR c:=@ TO 1:5=ÿ:FOR a=deb+c TO fin-c STEP 2:s=5+PEEK(a):N 
EXT:IF s€r(c+8)THEN PRINT e$s:f=f+2:1F f MOD 2 THEN PRINT ELS 
E PRINT", peut-etre inversion data" 

149 NEXT 

159 FOR c=ÿ TO 7:5:ÿ:FOR a=deb+c TO fintc-7 STEP 8:s=5+PEEK (a) 
INEXT:IF sCr(c)THEN PRINT e$" colonne"c+iif=1 

169 NEXT 

178 

189 IF f=8 THEN SAVE'"ac.bin",b,deb,fin-deb-6 

199 

299 DATA 08,80,896, 86,29, A9, 28, A8 

219 DATA 92,82,99,18,81,11,98,18 

228 DATA 81,11,29,19,DD,21, 14,83 

238 DATA 21,90,C8,06,C8,3E, 92,18 

249 DATA 87,19,39,87,11,59,C9,19 

258 DATA 11,99,98,DD, 75,499, DD,74 

268 DATA 81,DD,23, DD, 23, 19,EA, 3D 

278 DATA 28,97,21,00,49,06,08,18 

288 DATA EA,21,8A,89,11,99,63,0E 

298 DATA SA, ED,B8,C9,F3,48,F5,D9 

389 DATA C5,D5,E5, ED, 73, 41,82, DD 

318 DATA 21,1A,683,DD,F9,91,8E,F4 

328 DATA ED, 49,91,C9,F6,ED, 49,97 

339 DATA ED, 79,94,8E, 92,ED, 49,85 

349 DATA PE, 45, ED, 49, CD, 4B, 82,3E 

358 DATA 64,98,16,8C, 96,89, 3E,88 

368 DATA 3D, 28, fD, 30, 28, 33, 96,83 

378 DATA D9,3D,CA,1B,81,C3,A6,81 

388 DATA D9,86,89,33,33,3E, 63, D1 

398 DATA 33,33,E1,9E, 59, ED, B4,3B 


499 DATA 38,30, 29,F3, DD, F9, 24, 28 
419 DATA EC, 21,89, F7, CD, D9, 89,46 
429 DATA F4, ED, 78,17,36, DB, C3, 2A 
438 DATA 82, D9, 18,98, 96, F4, ED, 78 
449 DATA 17, D2, 24,82, 21,89, CB, CD 
459 DATA D9, 89,05, 28,EF, 21, 91,98 
469 DATA 19,30,F4,11,59, C9, 19, 18 
479 DATA EE, D9, 21,84, 66,5E, D9,#E 
489 DATA 4F,86,82,18,81,57, DO, 23 
499 DATA 78,66, 23,86,5F, 1A, 2B,5E 
599 DATA 77,4F,BA,D9,19,EF, 1F,B2 
519 DATA 77, 23,60, 29, E4,D9, 23,78 
529 DATA 86,23,86,5F, 1A, 28, 77, 4F 
538 DATA OA, D9, 77,3E, 08,84, 57,5D 
549 DATA GE, 59, ED, B6, 98, 3D, CC, 1B 
55$ DATA 82,08,C9, FD, 21, AA, 84, FD 
569 DATA F9,3E,D9,D1,67,6B, 01, Dÿ 
579 DATA 97,ED, BG, C6, 08,39, F4,21 
589 DATA 59,C9,D1,81,89, 97, ED, BY 
599 DATA 21,59,C8,D1,91,88, 97, ED 
649 DATA B9,DD,F9, 21,89, 77,50, 1E 
619 DATA 92, CD, CD,81,06,F5, ED, 78 
629 DATA 1F,39,FB,91,0C, EC, ED, 49 
639 DATA 94,26, 19,ED,61,3E, 59,01 
649 DATA 67,68,91,D9, 97, ED, B9, CE 
659 DATA 08,FE, 89,29, F2,21,58,48 
669 DATA D1,81,89,87, ED, 9, 21,59 
679 DATA 48,D1,91,89, 97, ED, B4,DD 
689 DATA F9,21,89,F7,59, 1E, 92, CD 
699 DATA CD,81,06,F5, ED, 76, 1F, 39 
799 DATA FB, 91,80, BC, ED, 49, 04, 26 
718 DATA 30,ED,61,06, F4, ED, 78,17 
729 DATA DA, 1F,81,C3, 24, 82, 3E, 19 
739 DATA 32,28, 82,98,21,08,C0,11 
749 DATA 88,09,CD, CD, 81,95, 28, 6 
758 DATA 11,91,08,19,18,F1,06,F4 
788 DATA ED, 78,17,36, E7,3E, 64, 32 
779 DATA 28,82, C3, 2A, 82,D9, 21, 3A 
789 DATA 86,5E, D9,8E, 4F,96, 94,18 
798 DATA 92,17,57,D9, 23, 78, 86, 23 
899 DATA 86,5F, 14,28,5E, 77,4F, JA 
819 DATA D9,B2, 19, ED, 59, 77, 23,8D 
829 DATA 29,E3, 86,83, 18,81,57,D9 
839 DATA 23, 78,86, 23, 86,5F, 1A, 2B 
849 DATA 5E,77,4F, fA, DO, B2, 17, 19 
858 DATA ED, 59, 77, {D, 28,86, 91,81 
869 DATA 87,99, 18,9, 88, 30, CC, 1B 
879 DATA 82,98,C9,21,FC, 89, 11,3D 
889 DATA 8B,81,C2, 83, ED, BB, 84, 3E 
899 DATA 64,C9,11,98, 49,43, 3E, 88 
999 DATA Ei,8E, 59, ED, B9, 3D, 29, F8 
919 DATA 91,82, F7, ED, 49,45, ED, 79 
929 DATA 31,89,89,E1,D1,C1,D9,F1 
939 DATA 98,FB,C9, 21,09, 48, 3, C8 
949 DATA 45,57,58,E, 59, ED, B9, C6 
959 DATA 98,39,F6,C9, 21,99, 49,75 
969 DATA 54,50, 10,81, 7F, 92, ED, BS 
979 DATA C9, 69, 09,08, 06,90, 00,89 
989 END 
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+8098 
8600 
+8098 
+890p 
+8908 
8000 
+8008 
+8900 
+8088 
8000 
t8098 
+8990 
+8900 
+8088 
+8900 
+8098 
+8099 
18900 
+8998 
8008 
t8088 
t8908 
+8998 
+6000 
+8098 
18908 
+8098 
8600 
+898 
+8909 
+8998 
+8900 
+8098 98 
18991 89 
+8992 58 
18993 88 
+8984 29 
8995 AG 
+8986 28 
+8907 A8 
+8998 92 
18999 82 
+898A 
1890A 09 
+868B 19 
+894C 91 
+899D 11 
#800E 99 
+808F 19 
18919 91 
#8g11 11 
8912 09 
+8913 19 
#8914 
8914 
+6914 DD211A83 
+8918 219800 
#8p1B 9608 
#891D 3E92 
#881F 1897 
t8921 19 
18922 3987 
+8924 115808 
#8927 19 
+8928 119898 
+892B DD7508 
t+892E DD7481 
#8931 DD23 
+8933 DD23 
#8935 19EA 
+8937 3 
18938 2897 
+803A 219849 
+893 9698 





e ASSEMBLEURe 


buffink 


crelign3 : 


creligni : 
crelign2 : 


.AC1 +8968. le partie. Ig:#11B -> #811B 
.Etiquettes et constantes de partie 2 et 3. 
siscrol=#811B .scroll mode | 

niscan=t81A6 .scan mode { 


savetabc=H821B 
fin=4#822A 


.sauve tableau cellules 
.vers sortie progranse 
spbuffer=#8241 buffer Stack Pointer 
restihe=#824B .restitue haut ecran 


AUTOMATE CELLULAIRE. Jerone RATIER. 5/99. 


.asode # ou {, scroll ou scan ecran 

.debut: #8899. longueur: #269-617. fin: #+8269. 

.adr: adresse. tab: tableau. pte: pointe. li: ligne 
.ecr: ecran, pix: pixel. reg: registre. Ig: longueur 


.initial=#8#14  .sous pren initial 

.entree=#8f4c entree programs assenbleur 
.switch=#897F .1: scroll mode 8. 2: scan node 9. 
.3: scroll mode 1. 4: scan node [. 
.sous pren restitue haut ecran 
.sous pres efface buffer haut ecran 
.tableau foraule, adr bas=t8 
.tableau ink node 8. adr bas=#89 
.tableau ink node 1. adr bas=##8 
.tableau cellules mode ÿ. 1g=161 
.tableau cellules node {. 1g=321 
.tableau adr ligne ecran 1. 1g=488 
.tableau adr ligne ecran 2. 1g=16 


.restihe=4824B 
.effbhe=#825C 
.tabforn=k8C89 
.mtabink=t68099 
sitabink=48389 
nftabcel=#868A 
sitabcel=NK8634 
tabligni=#831A 
tablign2=W84AA 


A . TABLEAU INK node ÿ. adr bas=#08 
8213 


.ordre bits:fros lower to master bit 

*90000008 .12 pixels par octet ecran en nodef 
X19900000 .idonc 2 positions: gauche, droit. 
X90801808 .TABINK: pixel position {, gauche 
X19991009 .ipour pixel droit: decaler a droite 
X90100808 
*19199000 . tbit: 3218 
x99101900 .-)ink #9118=6 
x19191909 
X99000818 
X18008018 .ink9 (utilise only 18 ink,de 8 a 9) 
8 4 .ordre bits :TABLEAU INK node { 

: X00060009 
X90819800 .14 pixels par octet ecran en modei, 
XO0008001 .idonc 4 positions. 
x90819801 .TABINK: pixel position 4, droit 
X00900000 .iautres positions: 
X90819000 .idecaler { à 3 fois a gauche. 
X00008001 
x90819891 
X00000089 
X90810000 .<ink 9: ink (9 modulo 4)=ink { 


.INITIAL. CREATION 2 TABLEAUX adr LIGNES: ecran 1 et 2 


LD IX,tablignf .IX pte sur tabligne ecrant(ligne 1) 
LD HL,#C998 .adr ecran { ligne 

LD B,299 .298 lignes ecran 1 

LD A,2 .2 tableaux ligne 

JR creligni 

ADD HL,DE .HLsadr ligne=adr last ligne+#889 

JR  NC,crelign2 

LD DE,#C958 .#C858:step special next li si carry 
ADD HL,DE .HL:adr ligne avec step special 

LD DE,+898 .#889: step ordinaire pour next lign 
LD (1X+9),L .tablign(lign){e=octet bas adr ligne 
LD (1X+1),H .tablign(lign)2e=octet haut adr lign 
INC IX 

INC IX .IX pte sur tabligne(next ligne) 
DJNZ crelign3 .B: compteur lignes par tableau lign 
DEC À .A: compteur tableaux ligne 

JR Z,copieink 

LD HL,+4988 .adr ecran 2 ligne { 

LD B,8 .8 lignes ecran 2. itab lign ecran2: 


+893F 

#893F 18EA 
8941 219A85 
#8944 118963 
+8947 BE9A 
+8949 EDBÿ 
#894B C9 
#894C 

#+894C F3 
+894D 98 
#864E F5 
#+894F D9 
+8958 C5 
#8951 D5 
#8952 E5 
+8953 ED734182 
+8957 DD211A83 
#895B DDF9 
+895) 

+895) 

#895D D19EF4 
#8969 ED49 
+8962 B1CBF6 
8965 ED49 
+8967 

+8967 

8967 97 
#8868 ED79 
+896A 

#896A 94 
+896B 2E92 
#896D ED49 
+806F 

1896F 95 
#8978 BE4S 
#8872 ED49 
+8974 

+874 CD4B82 
t8977 3E64 
8979 98 
#897A 168C 
#897C 9689 
#897E 3E98 
t+898ÿ 3) 
+8981 289) 
#8983 3D 
t8984 2833 
18986 9683 
+8988 D9 
#8889 3) 
#898A CA1BB{ 
#898D C3A681 
+8998 

+8998 

+8999 

+8998 D9 
8991 9600 
+8993 33 
+8994 33 
+8995 3E63 
#8997 Di 
+8998 33 
18999 33 
#899A Ei 
#899B 9E59 
+899) EDBS 
#899F 3B 
#89A8 3B 
#8pAi 

#89A1 3D 
#89A2 29F3 
t8gA4 DDF9 
t8pA6 

t8ÿA6 24 
#88A7 26EC 
H89A9 218BF7 
#85AC CDD98ÿ 
#89AF 86F4 
#89B1 ED78 
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copieink : 


sfscrol 
nfscrol3 : 


aÿscrol2 : 
néscroli : 


.only adr 8 premieres lignes utilise 


crelign2 .JP creation 2e tableau ligne 
LD HL,buffink .:COPIE TABLEAU INK node 1 en +638 
LD DE,aftabink .adr tableau ink mode {. adr bas:#98 
LD C,ig .BC=18: longueur tableau ink 
LDIR .copie 
RET .fin initialisation: retour au basic 
DI . .pas d'interruption ‘ENTREE PRGN 
EX AF,AF' .1EX et EXX (2e jeu de registres) 
PUSH AF .iutilises: 
EXX 
PUSH RC 
PUSH DE 
PUSH HL .registres' sauves sur pile 
LD (spbuffer),SP.sauve SP d'origine 
LD IX,tabligni 
LD SP,IX .SP pte sur tablign ecrani(ligne 1): 


.PUSH-POP possible sans aodif tablig:si PUSH(ou CALL) 
.SP decrenente, avec POP (ou RET): SP reincresente. 


LD BC,#F4fE .1INITIAL TEST TOUCHE espace 
OUT (C),C .NHF4SE: 14 dans port data 

LD BC,#F6CA 

OUT (C),C .#F6C9: #C8 dans port command: 


.chent registre PSG: reg 14 PSG on. 


.PSG: Prograamable Son Generateur, lit clavier 


SUB À Ag 1 avec registre 14 
OUT (C),A .N#F689: #98 dans port command: 

A .fin operation avec PSG, 

INC B .B=4F7 

LD C,4#92 

OUT (C),C .NF792: #92 dans bort control: 


.port data en entree (pour entrer reg 14 PSG vers Z88) 


DEC B .B=#F6 

LD C,#45 .#45: ligne 6 clavier,bit7:key space 
OUT (C),C .#F645: #45 dans port cosnand: 

‘ .PSG reg 14 lit ligne 6 clavier 

CALL restihe .restitue haut ecran: efface nenu 

LD A,188 .288/2: nonbre lignes image sode 8 
EX AF,AF' .A'=19@:initial compteur ligne isage 
LD D,#8C .adr haut tabforaul: initial autonat 
LD B,#89 .adr haut aftabink: initial autosate 
LD AÀ,4#8 .:SWITCH. on data in #897F, aller a: 
DEC A 

JR Z,aÿscrol .-scroll node 8 

DEC A 

JR Z,afscan .-scan node Ÿ 

LD B,+83 .adr haut aitabink: initial automate 
EXX .adr tabforaule et mitabink en reg 
DEC A 

JP Z,aiscrol .-scroll node Î 

JP  siscan .-scan mode ! 


.SCROLL node #  .(scroll: decalage lignes ecran, 
.puis autonate cellulaire: trace ligne 199 (et 299)) 


: EXX . .adr tabforaule et aftabink en reg’ 
LD B,# .1$P pte sur tabligne (ligne 1) 
INC SP 
INC SP .SP pte sur tabligne (ligne 2) 
LD 4,99 .99:198/2 icopie: 
POP DE .DE:destinatiiligne orig->ligne dest 
INC SP ile passe:4-)2 
INC SP : ' 6-)4 
POP HL .HL: origine : CRE 
LD C,8g .BC=88: long : 298-198 
LDIR . .copie->lig-2: 
DEC SP ‘ 12e passe:3-)1 
DEC SP .SP pte sur : 5-)3 
, .next li dest: 5 
DEC À .A: conpteur : 199-»197 
JR  NZ,afscroli 
LD SP,IX .2e passe ou PUSH-POP possible 
: .site passe,HL=#FFDS: (fin lig 29#)+1 
INC H .si le passe: H=8 
JR Z,nfscrol2: .si H=ÿ: JP 2e passe 
LD HL,#F788 .adr ligne 199, pour initial autonat 
CALL afautoc automate cellulaire sode # 
LD B,tF4 TESTER TOUCHE ESPACE 
IN A,(C) .intFé:port data entre lign6 clavier 


t+88B3 17 
t88B4 38DB 
+85B6 C32A82 
18989 

+8#b9 

#85B9 D9 
188BA 1888 
t8pBC 66F4 
#88BE ED78 
#88C8 17 
#88C1 D22A82 
18804 218808 
+84C7 CDD98# 
H88CA 85 
t68CB 28EF 
#88cD 

+880) 218188 
#89D8 19 
t8#D1 38F4 
#89D3 1158C8 
+89D6 19 
#89D7 18FE 
t8#D9 

+899 

+85D9 

t8#D9 

#89D9 

+89D9 

+899 

+8#D9 

+89D9 

+89D9 

+88D9 

#89D9 

+89D9 

#8#D9 


186D9 
+899 D9 


#8#DA 218A86 
#89DD 5E 
#88DE D9 
#89DF SEAF 
NOSE1 9692 
N8NE3 1691 
H86ES 
SES 57 
166E6 D9 
86E7 23 
#8SE8 7B 
#8FE9 86 
N8HEA 23 
HOFEB 86 
#8SEC 5F 
#8#ED LA 
OSEE 2B 
#88EF 5E 
#88F9 77 
#86F1 4F 
189F2 #A 
#89F3 D9 
#88F4 19EF 
t8#F6 
+86F6 
#89F6 1F 
+66F7 
#89F7 B2 
#8#F8 77 
#88F9 23 
#88FA 90 
#89FB 29E4 
#84FD 
#+69FD D9 
t69FE 23 
#69FF 78 
18188 86 
#8191 23 
18182 66 
48193 5F 
#8184 1A 


afscani 
afscani 


afautoc : 


sfautoc3 : 


shautoc2 : 
sfautoci : 





RLA . .bit 7,A passe dans carry flag 
JR C,sfscrol3 .si carry=1: JP scroll sode # 
JP fin .carry=#: touche espace appuyee 


«SCAN sodef(automate cel] trace ligne en balayant ecr) 


: EX . adr tabforaule et aftabink en reg’ 
JR  afscani 
: LD B,4#F4 .1TESTER TOUCHE ESPACE 
IN A, (C) 
RLA 
JP NC,fin .Si carry=#: touche espace appuyee 
: LD HL,4Cs## .adr ligne 1, pour initial automate 
: CALL afautoc autosate cellulaire mode $ 
DEC B .1B: flag fin d’un ecran 
JR Z,afscan2  .si B=8: JP debut ecran 
.NEXT LIGNE isage . :DE=(adr debut ligne ecran)-1 
LD HL,4881 .#8#8+1=(step pour next ligne)+1 
ADD HL,DE .HL=(adr last ligne)+4688 
JR N,aëscan3 .si carry=#: HL=adr next ligne 
LD DE,4C#5$ .Step special pour next ligne 
ADD HL,DE .HLsadr next ligne avec step special 
JR afscan3 .JP tracer next ligne 


ï AUTOHATE CELLULAIRE 
MOVE debut de ligne 
.buffer=tabcel1(#) 
FOR x=1 TO 159 ’(ou 319 en aode 1) 
cellule=tabforaule(bufferttabcell(x)+tabcel1(x+1)) 
buffer=tabcell(x) 
tabcell(x)=cellule 
PLOTR 4(ou2),8, cellule 
.NEXT x 
. 1 "PLOTR":2(ou4)cell, donc 2(ou4)pixel par octet ecran: 
.itraite specifiquesent en asseableur. 
. AUTONATE CELLULAIRE mode ÿ 
.D=adr haut tab foraule, adr bas=#9f 


; ÿ .B=adr haut tabink aodef,adr bas=499 
EXX . 


*1HL' pte sur {er octet ligne ecran 
LD HL,aftabcel .HL pte sur tabcellule aodef(#) 
LD E,(HL) .E: buffer:tabcel lule(#) 
EX . Changement registres 
LD C,7% .C’=68-1=(nbre octet par lign ecr)-1 
LD B,2 .B':nosbre pixel par octet en node # 


JR  afautoci 


LD D,A .D':pixel { 

EXX . .changesent registres 

INC HL .HL pte sur tabcell(x), (-) next x) 
LD AE .A=buffer: precedent tabcel1(x-1) 
ADD A, (HL) .A=buffer+tabcel lule(x) 

INC HL *HL pte sur tabcellule(x+1) 

ADD 4, (HL) .Asbufferttabcell(x)+tabcel1(x+1) 
LD E,A .DE pte sur tabforaule(A) 

LD A, (DE) .Azcel]=tabf(buffttabc(x)+tabc(x+1)) 
DEC HL .HL pte sur tabcellule(x) 

LD E,(HL) .E: buffer=tabcellule(x) 

LD (CHL),A .tabcellule(x)=cellule 

LD C,A .BC pte sur tabink(cellule) 

LD A,(BC) .A=tabink(cellule)=pixel 


EXX . .Changenent registres 
DJNZ afautoc2 .B': cospt pixel par octet en aode 8 


‘ .Apixel 2, position 1 
RRA . 


.A=pixel 2, position 2, ok 
x .D'=pixel 1, position 1, ok 
œR D .A=pixel 1 OR pixel 2 
LD (HL),A -octet ligne ecran=pixeli OR pixel2 
INC HL .HL' pte sur next octet ligne ecran 
DEC C .C': cospteur octet par ligne ecran 


JR NZ,nautoc3 .si C'>8: JP next octet ligne ecran 


EX . DERNIER OCTET ligne ecran 

INC HL a! 

LD AE .tides precedent, mais: 

ADD A, CHL) -sonly pixel 1, gauche, (pixel2:#) 
INC HL pixel {: pour x numero 159=2x79+1 
ADD A, (HL) (x japair pour meilleur effet de 
LD E,A .isymetrie) 

LD A,(DE) 


18195 2B 
8186 77 
48197 4F 
18196 SA 
18149 D9 
#818A 77 
18188 
18198 
1819B 3E88 
1818) 84 
H81SE 57 
#818F 5D 
18119 8E56 
18112 EDB8 
#8114 
18114 88 
#8115 3D 
18116 CC1B82 
#8119 
48119 
48119 
18119 #8 
H811A C9 
t811B 
8118 
t811B 
#811B 
#811B 
#811B 
#811B 
1611 
4811B 
48118 
#811B 
#811B 
#811B 
#811B 
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ARCADES 


Des centaines de logiciels pour CPC 
à télécharger avec le kit ARCADES. 


DEC HL 

LD CHL),A 

LD C,A 

LD A,(BC) .A=pixel 1, position 1, ok 

EXX 

LD (HL),4 .HL’ pte sur octet 88 ligne ecran 

‘ .COPIE ligne ecran->ligne suivante 
LD A,8 .taodef:1 ligne ieage = 2 lign ecran 
ADD A,H .iligne iapair-)ligne pair:step=#889 
LD D,A 

LD E,L .DE=HL+#88#: destination. ‘HL:origin 
LD C,88 .BC=68: coapteur octets par ligne 


LDDR . .copie: ligne ecran->next lign ecran 
.DE=(adr debut ligne ecran)-1 
.registre A’ on. :COMPTEUR LIGNES 
.A: compteur lignes isage 

.Si A:#: fin d’un ecran, 

.B=1: flag fin d’un ecran pour scan 
.À=188:284/2:initial coapt lig iaage 


EX AF,AF' 
DEC A 
CALL 7, savetabc 


EX AF,AF’ .A': compteur lignes isage 
RET . .fin de ssprga autonate cell node ÿ 
.AC2 #811B 1g:4198 -> #821B 


automate cellulaire suite: 2e partie. 

.Etiquettes et constantes pour, ou de, partie 1 et 3 
.aiscrol=#811B .scroll mode 1 

.miscan=H81A6 .scan mode ! 

savetabc=#821B  .sauve tableau cellules 
inicompt=18228  .initial compteur groupes lignes 
fin=#822A .vers sortie routine 
tablign2=#84AA  .tableau adr lignes ecran 2 
nitabce | =NB634A .tableau cellules mode 1 


. SCROLL node { (utilise 2 ecr: ecri:#C498, ecr2:#4990) 











Voir bon de commande page 





#811B 
#811B 
#811B 
#811B 
#811B 
#811B 
#811B 
#811B 
#811B 
#811B 


#811B FD21AA84 aiscrol 


#811F FDF9 
#8121 SEDS 
#8123 D! 
#8124 67 
#8125 6B 
t8126 81DB87 
#8129 EDBS 
#812B C6#8 
#812D 38F4 
#812F 

#812F 215809 
#8132 D1 
8133 81887 
8136 EDBS 
#8138 

18138 

#813B 215808 
#813B D1 
+813C #18B87 
4613F EDBS 
#8141 

#81al 

#4 

#8141 

#8141 DDF9 
#8143 218877 
8146 59 
#8147 1E92 
#8149 CDCD81 
#814C 

#814C 9G6FS 
#814E ED78 
#8158 1F 
#8151 39FB 
#8153 

#8153 #19CBC 
#8156 EDA9 
#8158 

48150 94 
#8159 2618 
#815B ED61 
#815D 

#815D 

#815D 

#815D 

#815D 

#815D 3E58 
#815F D 
#8168 67 
#8161 6B 
#8162 91D887 
#8165 EDBS 
#8167 C698 
#8169 FE8ÿ 
#816B 29F2 
#816D 

#816D 215849 
#8178 D1 
#8171 918897 
#8174 EDBS 
48176 

#8176 

+8176 215548 
#8179 Di 
#817A 918887 
#817D EDBS 
#817F 

#817F 


aiscroli : 


franel 


aiscrol3 : 


: LD IY,tablign2 
aiscrol4 : 







.RAN ecran (288 lignes) organisee en 8 segments. 
.Chaque segment compose des 25 lignes suivantes: 
.(s+8x8)+(s+Bx1)t ... +(st8#24). (avec s entre 1 et 8) 
. ligni + lign9 +... + ligni93. (si s=1: exemple) 
.adr debut de chaque segment=adr debut lignes { a 8 
.adr fin de chaque segment=adr fin lignes 193 a 288. 
.long ligne:8# octets. long segment=25 lignest69-2886. 


.copie: ecrani segsent 3 a 8 -> ecran2 segnent { a 6 
.A'=188: initial compt groupe ligne 


LD SP,IY .SP pte sur tabligne ecran 2(lignel) 
LD A,4#D8 .Azadr haut ligne 3 ecran 1 

POP DE .DE=adr ligne ecran 2: destination 
LD H,A .H=adr haut ligne ecran 1: 

LD L,E .L:#. HL:adr ligne ecran Î: origine 
LD BC,2899 .88 octets#25 lignes: longueur 

LDIR .copie 

ADD 4,8 .Azadr haut next ligne ecran i 


JR NC,uiscroll .si non carry: ligne ecranl (9 
LD HL,#C958 
POP DE 
LD BC,1928 
LDIR . 

de: ecrani, 
.vers: ecran2, 
LD HL,#CB58 


.HL=adr ligne 9 ecran 1: origine 
.DE=adr ligne ? ecran 2: destination 
.88 octets#24 lignes: longueur 
.copie: 
partie segnent 1: (1+8x1)+...+(1+824) 
partie segment 7: (7+84#)+...+(7+8223). 
.HLsadr ligne 19 ecran 1: origine 


POP DE .DE=adr ligne 8 ecran 2: destination 
LD BC,1928 .88 octets#24 lignes: longueur 
LDIR . .copie: 
de: ecrani, partie segnent 2: (2+8*1)+...+(2+8%24) 

.vers: ecran2, partie segment 8: (8+8x#)+..,+(8+8223) 
‘ .IXtablignt 
LD SP,IX .SP pte sur tabligne ecran 1(lignel) 
LD HL,4+778$ adr ligne 199 ecran 2 pour automate 
LD D,B .D:# 
LD E,2 .E: cospt ligne tracees par automate 
CALL aiautoc .autosate cellulaire mode 1 
LD B,4#F5 . dFRAHE 

: IN A, (C) .bit#,Aitop syncro vertical moniteur 
RRA .bit #,A passe dans carry flag 


JR NC, framel .si carry=#: attendre top syncro. 

LD BC, #BC#C . ECRAN 2 ON 

OUT (C),C .HBCSC: choix registre 12 de CRTC. 
.CRTC: Cathode Ray Tube Controller: controleur video 


INC B .üreg12 CRTC:fixe adr haut RAM ecran 
LD H,16 
OUT (C),h .NBD1#: #18=16-X88818988 dans reg12: 


.bits #19 decalle de 2 a gauche-)481989889=448 
.adr haut RAM ecran = #49. ecran 2 on, en #4#88. 


.copie: ecran? segsent 3 à 8 -) ecranl segnent 1 a 6 
; .SP pte sur tabligne ecran 1(ligne{) 
LD A,#58 


.Azadr haut ligne 3 ecran 2 
POP DE .DE=adr ligne ecran 1: destination 
LD H,A .H=adr haut ligne ecran 2 
LD L,E .L:8, HL:adr ligne ecran 2: origine 
LD BC,2899 .88 octets#25 lignes: longueur 
LDIR . .copie 
ADD 4,8 .Azadr haut next ligne ecran 2 
CP 484 


JR NZ,niscrol3 .si A(#88: ligne ecran2 (9 
LD HL,+4958 
POP DE 


LD BC,192$ 


.HLsadr ligne 9 ecran 2: origine 
.DE=adr ligne 7? ecran 1: destination 
.88 octets+24 lignes: longueur 
.copie: 

partie segment {: ({+8x1)+...+(1+8%24) 

partie segment 7: (7+8xÿ)+...+(7+8423) 
.HL=adr ligne 19 ecran 2: origine 
.DEsadr ligne 8 ecran {: destination 
.88 octets#24 lignes: longueur 
.copie: 

partie segnent 2: 

partie segsent 8: 


de: ecran2, 
.vers: ecrani, 
LD HL,#4858 
POP DE 
LD BC,1928 
LDIR . 

de: ecran?, 
.vers: ecran, 


(2+8x11+... 
(B+8x8)+... 


+(2+8%24) 
+(8+8#23). 


ÉR 
RSS Ÿ 


#817F 

#817F DDF9 
48181 2188F7 
#8184 5 
#8185 1E82 
#8187 CDCDBI 
#818A 

+818A 86FS 
#18C ED78 
#618E 1F 
#818F 39FB 
#8191 

#8191 #18CBC 
#8194 EDA9 
+8196 #4 
8197 2638 
#8199 ED61 
48198 

+819B 

#819B 86F4 
#819D ED78 
#819F 17 
#81A8 DA1FBI 
#81A3 C32AB2 
#8146 

#8146 

#81A6 3E19 
181AB 322882 
#81AB 88 
#81AC 

#B1AC 21888 
#81AF 119889 
#81B2 CDCDB1 
#81B5 

#81B5 #5 
#81B6 2886 
+818 

#61B8 11#1C8 
+81BB 

#81BB 19 
#81BC 16F1 
#81BE 

#81BE 26F4 
#81C# ED78 
#81C2 17 
#81C3 3BE7 
#81C5 

#81C5 3E64 
48107 322882 
#81CA C32AB2 
#81CD 

#81CD 

#81CD 

#81CD 

#81CD 

#81CD 

#81CD D9 
#81CE 21386 
#81D1 5E 
#81D2 D9 
#81D3 GE4F 
#81D5 #694 
#81D7 1882 
#81D9 

#81D9 17 
#81DA 

#81DA 57 
#81DB D9 
#81DC 23 
#81DD 7B 
#81DE 86 
#81DF 23 
#81F8 86 
#81E1 5F 
#81E2 LA 
#81E3 28 
#81Eû 5E 
#B1ES 77 
#81E6 4F 


frame2 


niscan 


siscani 
niscan2 


siscant 


aiautoc 


siautoc3 : 


siautoc2 : 


elautoci : 


: LD 


LD 
EX 


: LD 
; LD 


CALL 


DEC 
JR 


LD 


SP,IX .SP pte sur tabligne ecran 1(lignel) 
HL, NF788 .adr ligne 199 ecran 1 pour autosate 
D,B .D=4 

E,2 .E: compt ligne tracees par automate 
mlautoc «automate cellulaire mode | 

B,#FS .UFRAHE: attendre syncro moniteur 

A, (C) 

NC, frame? 

BC, #BC#C .dECRAN 1 ON 

(C),C 

B .B=4BD 

H,48 

(C),H .#BD38: N39=48-%88110888 dans regl2: 


haut RAM ecr-X11889#89=IC8. ecran 1 on, en NCSS#. 
B,tF4 .ÜTESTER TOUCHE ESPACE 
A, (C) 
C,miscrolâ .si carry=1: JP boucler 
fin .carry=#: key espace appuyee 
. SCAN node 1 
A,25 .288/8: compteur groupe de 8 lignes 
{inicompt),A .modification code machine 
AF,AF' .A':25: initial compt groupe lignes 
HL, 4C988 .adr ligne 1, pour initial automate 
DE,8 .D=#. E:conpt lig tracee par autosat 
slautoc .autosate cellulaire mode 1 
B .üB: flag fin d'un ecran 
Z,miscant .si B:#: fin ecran, JP test key 
.NEXT LIGNES dHL:fin last ligne 
DE, #CB81 .1C#55+N899-79: step special 
.fron fin ligne to debut next ligne. 
HL, DE .HL:adr next ligne avec step special 
miscan2 .JP tracer next groupe de 8 lignes 
B,tF4 .ÜTESTER TOUCHE ESPACE 
A, (C) 
C,alscan3  .si carry=l: key espace non appuyee 
.touche espace appuyee 
À, 188 .288/2: compteur groupe 2 lignes 
(inicompt),A .retablir code machine 
fin .JP vers sortie prgs assembleur 
.AUTOHATE CELULAIRE node 1 
.iden modef, mais 4 pixels par octet 
.D=adr haut tab foraule, adr bas=#8# 
.B=adr haut tabink model,adr bas=##8 
.D'=#: buffer pixels 
‘ .üHL' pte sur debut ligne ecran 
HL,nitabcel .HL pte sur tabcel1(#) 
E, CHL) .E: buffer=tabcel1(#) 
‘ .changenent registres 
c,79 .C':89-1= (nombre octets par ligne)-1 
B,4 .B'=nosbre pixels par octet en modei 
aiautoci 
.tabink: pix droit, donc positionner 
.pixel en decalant 1 a 3 fois a gche 
D,A .D': buffer pixels 
‘ .changement registres 
HL .HL pte sur tabcell(x}, (-) next x) 
AE .A=buffer: last tabcell(x-1) 
À, (HL) .A=buffer+tabcel!(x) 
HL .HL pte sur tabcell(x+1) 
A, CHL) .Asbuffer+tabcell(x)+tabcel1(x+1) 
E,A .DE pte sur tabforaule(A) 
A, (DE) .Azcell=tabf (buff+tabc(x)+tabc(x+1)) 


HL .HL pte sur tabcell(x) 


E, (HL) .E: buffer=tabcell(x) 
CHL), À .tabcell(x)=cell 
C,A .BC pte sur tabink sodef(cell) 


#81E7 DA LD 





À, (BC) .A=tabink(cell)=pixel 

#81E8 D9 EXX .changenent registres 

#81E9 B2 OR D .Aznew pixel OR precedent(s) pixels 
#81EA L9ED DJNZ mtautoc2 .B': conpteur pixels par octet 
#81EC 

#81EC 58 LD D,B .D':ÿ 

#81ED - .Azpixi OR pix2 OR pix3 OR pix4 
#B1ED 77 LD (HL),A .octet ligne = 4 pixels 

HIEE 23 INC HL .HL' pte sur next octet ligne ecran 
#81EF 9D DEC C .C': compteur octet par ligne ecran 
#81F4 29E3 JR NZ,mtautoc3 .si C'>8: JP next octet ligne ecran 
#81F2 

+81F2 9693 LD B,3 DERNIER OCTET ligne ecran 

#81F4 1891 JR  niautocé .iden precedent 

#81F6 57 siautocs : LD D,A .ümais only 3 pixels (pixel4=g). 
#81F7 D9 miautoc4 : EXX . .üpixel3: pour x nunero 319=4x79+3 
#81F8 23 INC HL 

#81F9 7B LD AE 

#81FA 86 ADD A, (HL) 

#81FB 23 INC HL 

#81FC 86 ADD A, (HL) 

#81FD 5F LD E,A 

#81FE LA LD A, (DE) 

#81FF 2B DEC HL 

48298 SE LD E,(HL) 

18291 77 LD (CHL),A 

+8292 4F LD C,A 

+8293 DA LD A, (BC) 

#+82ÿ4 D9 EXX 

#8295 B2 OR D 

+8296 17 RLA 

#8297 19ED DJNZ nlautoc5 

+8299 54 LD D,B .D'=ÿ 

#829A 77 LD  (CHL),A .octet 88 ligne=pixt OR pix2 OR pix3 
+829B 

+829B ï . CONPTEURS 

#825B 1D DEC E dE: conpt ligne tracees par automat 
+829C 2896 JR  Z,alcompt .si E:ÿ: JP compteur groupes lignes 
#829E 91B197 LD BC,H7BI .N898-79: step ordinaire 

#8211 : .from fin ligne to debut next ligne 
#8211 99 ADD HL,BC .HL=adr debut next ligne 

8212 1BB9 JR mlautoc .JP tracer next ligne 

8214 

+8214 98 siconpt : EX AF,AF' .A': conpteur groupes lignes 

18215 3D DEC A 

#8216 CC1BB2 CALL Z,savetabe .si A:ÿ: fin d’un ecran 

#8219 $ .B=1: flag fin d'un ecran pour scan 
+8219 .cas de scroll: A=198=299/2: 

8219 .2 lign tracees pour { acces a sous pren automate cell 
+8219 .cas de scan: A:25:289/8: 

+8219 .8 lign tracees pour { acces a sous pres automate cell 
+8219 

+8219 98 EX AF,AF' .A': compteur groupes lignes 

#821A C9 RET . .fin sous pren autonate cell mode { 
+821B .AC3 +821 Ig:t4E -) NB269 

#821B automate cellulaire fin: 3e partie. 

+821B .Etiquettes pour partie { et 2, 

+821B .savetabc:#821B  .sous pren sauve tableau cellules 
#821B .inicospt=#8228 .initial compteur (groupes) lignes 
18218 .fin=#8224 .gortie pren 

+821 .spbuffer=#8241 .buffer de Stack Pointeur 

+821 .restihe=#824B  .sous pren restitue haut ecran 
+821B .effbhe=#825C .sous pren efface buffer haut ecran 
eZ, OO OO |: SERSFRRRSR RER RS ere AS spa eee 
#821B 

+821B . SAUVE TABLEAU CELLULE 

#821B apres { ecran entier scan ou scrol 
+8218 .pour cosnande menu "Back" 

#821B .tabcell mode 9 (1g 161) inclu dans 
#+821B .tabcell node { (1g 321). 

#821B lorigine 

#821B ; sHSspre esse 

#821B . tabcel* “destination 
+821B 

#821B 21FCB9 savetabc : LD HL,#89FC .#8634+321#3-1=fin buffer2 tabcel= 
#821E .=tabcel+(1g tabcelx3)-1: origine 
#821E 113D8B LD DE, +8B3D .#8634+321#4-1=fin buffer3 tabcel= 
#8221 5 .=tabcel+(1g tabcel*4)-{:destination 
‘48221 910293 LD BC,962 .321#3-1=(long tabcel#3)-1: longueur 
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+8224 
+8226 ÿ4 
#6227 
+8229 
+8229 
+8229 C9 
8224 

+822À 

+822A 

+822A 119849 
+822D 43 
+822E 3E98 
#8230 Ei 
#8231 SESB 
+8233 EDB9 
+8235 3D 
18236 29F8 
18238 

+8238 #182F7 
1823B ED49 
+823) 

+823) 95 
#823E 

#823E ED79 
+8248 

+8249 

+6248 319089 
18243 

8243 E1 
#6244 Di 
#8245 Ci 
+8246 D9 
+8247 F1 
t8248 98 
+829 FB 
t624A C9 
+824B 

+824B 

+824 

+824B 219549 
t824E 3EC9 
+8258 45 
#8251 57 
+8252 58 
#8253 9E59 
+8255 EDBÿ 
18257 C698 
+8259 30F6 
#825B C9 
+825 

+825C 

#825C 

+825C 219849 
#825F 75 
+8268 54 
#8261 5D 
+8262 1C 
18263 817F02 
+8266 EDBS 
+8268 C9 


inicomp 


fin 


savehe 


spbuff 


restihe 


restihel : 


effbhe : 


of 
Su 
" 
ù 
+ 
= 
O 
rs 
T 


: LD SP,+8998 


: LD HL,+4988 


LDDR . .copie, en decrementant. 
INC B .B=1: flag fin d'un ecran pour scan 
: LD A,199 initial compteur (groupes) lignes 


inicompt=iniconptl.adresse de "189"=iniconpt=#8228 
| .si scan mode 1: code modifie: 4:25 
RET 


.fin sous pren sauve tableau cellule 
. SAUVE HAUT ECRAN: 8 lignes -> buff 
: .sur ces 8 ligne s'ecrira menu basic 
: LD DE,+4909 .buffer haut ecran: destination 
LD BE .B=$ 
LD A,8 .Aïcospteur lignes 
POP HL .HL pte sur debut lign, ecri: origin 
LD C,8ÿ .BC=88: longueur ligne 
LDIR . .copie: haut ecran { -> buffer 
DEC À .A: conpteur lignes 


JR NZ,savehe  .si A9: JP sauver next ligne 


LD BC,#F782 .üFIN TEST TOUCHE espace 


OUT (C),C .#F782: #82 dans port control: 
‘ .port data en sortie 

DEC B .B=#F6 

. .A:Q 

OUT (C),A .KF689: #99 dans port command: 


.fin operation avec PSG. 


.SP=SP d'origine 
spbuffer=spbuff+i .adresse de "K9900"=spbuffer=#B241 
POP HL 

POP DE 

POP BC 

EXX 

POP AF 

EX AF,AF' .registres' d'origine retablis 

El . interruptions retablies 

RET .tin pren assenbleur: ret au basic 


.RESTITUE HAUT ECRAN 
.ss pres utilise by pren et by basic 
.HLsbuffer: origine 


LD A,#Cÿ .Azadr haut lignei 
LD B,L .B°8 
LD D,A 
LD E,B .E:9, DE=adr ligne: destination 
LD C,8ÿ .BC:89: longueur ligne 
LDIR .copie: buffer -» 8 lignes 
ADD A,8 .A=adr haut next ligne(2a9) 
JR NC,restihei .si non carry: numero ligne(g 
RET .basic ou pren assenbleur 
.EFFACE BUFFER HAUT ECRAN 
‘ .sous pren utilise par basic 
LD HL,+4988 .HL pte sur buffer: origine 
LD CHL),L .(#4890):9, 8: octet de remplissage 
LD D,H .D=#48 
LD E,L .E=f 
INC E .E=1. DE=#4891: destination 
LD BC,639 .long buff-1=(89 octetsæ8 lignes)-1 
LDIR. buffer remplit par # 
RET .basic 


Voir bon de commande page 54 





PETITES ANN@NC 


V 














+ Vds CPC 6128 + jeux + mon. couleur + 2 
joysticks. Prix : 2000 F. Tél. 69.09.57.88, après 
18 h sauf la mardi et vendredi. 


+ Vds tuner CPC 6128 et 52 jeux originaux. 52 
jeux : 500 F. 1 jeu : 70 F. Tuner 700 F. Tuner + 
jeux : 1300 F. Tél. 69.09.57.88. 


+ Ech. 4 jeux orig. contre Multiface 2 et 2 jeux 
contre la compil. les Gremlins. Tél. 91.25.93.95, 
demander Michel, à Marseille. 


+ Vds micro-ordinateur portatif 4 K de RAM + 
imprimante graphique + rouleaux + stylos, état 
neuf : 800 F + port. Tél. (1) 64.93.3474. 


+ Achète occ. “Le langage machine de l'Ams- 
trad CPC”. Becam, 7, allée des Mimosas, 71420 
Genelard. Tél. 85.79.22.33. 


+ Auteur de Digisound et de Carto. Demander 


documentations. Logiciels à petit prix. Firmin F., 
4, rue Pasteur, 80100 Abbeville. 





+ Ach. revues étrangères pour CPC Amstrad, 
Computer, User ou autres. M. R. Lorrain, 23, 
route de Fretterans, 71270 Pierre de Bresse. 
Tél. 85.72.82.12. 


+ Vds jeux (nouveaux et anciens) sur 3”, bas 


prix, cause 5” 1/4. M. Tavares Fernand, 30, 
route de Châteauneuf, Le Vercors 2, 26200 
Montelimar. 


+ Urgent ! Vds CPC 464 mono + jeux originaux 
+ manette pro : 5000 F. Tél. 80.92.39.93, après 
18h 30. 


+ Mégaclub cherche adhérants. Joindre 5 F pour 
numéro 3 à Crampagne Emmanuel, Bonnac, 
09100 Pamiers. 


+ Urgent ! Vds CPC 464 + lect. disk + impriman- 
te + souris + synthé parole + log. Prix à débat- 
tre. Tél. 76.71.23.44, Isère. 


+ Vds tuner CPC 6128 + 52 jeux. Prix : 1400 F. 
Tuner : 600 F. Tél. 69.09.57.88, après 18 h sauf 
le mardi et le vendredi. 


+ Le club Free arrive. Liste et renseignements 
contre 1 disk + 3,80 F. Dettori Patrick, 11, rue 
du Casino, 83230 Bormes. 


+ Achrevues étrangères pour Amstrad CPC 
(ex. : Amstrad Computer ou autres). M. R. Lor- 
rain, 23, route de Fretterans, 71270 Pierre de 
Bresse. Tél. 85.72.82.12. 


+ Vds ou échange contre logiciels double lect. 8 
pouces plus disquet. Faire offre au (16.1) 
39.54.35.93. 


+ Cherche contacts pour échanges de logiciels 
CPC 6128. Henry Francis, 31, rue des Brevel- 
les, 54340 Pompey. 


+ Vds Amstrad 6128 sous garantie + env. 200 
jeux avec moniteur couleur CTM 644. Prix : 
3000 F. Urgent. Tél. 34.19.39.69, demander 
Salim. 


+ Vds imprimante Seikosha 100000 CPC, très 
bon état + 3 rub. encre. Prix : 1600 F. Tél. 
60.46.19.89, appeler en soirée et de mander 
Olivier (91). 


+ Vds CPC 6128 couleur, sous garantie : 2500 F 
+ imprimante 2160 : 800 F + manette, livre, D7. 
Tél. 43.40.06.65. 


+ Cherche contact sérieux pour 6128, possède 
de nombreux news, prend aussi anciens jeux + 
démo + utilitaires. Envoyez liste à Demange 
Alexandre, 72, rue de la Libération, 55840 
Thierville. 


+ Vds CPC 6128 Amstrad + 60 disquettes de 
jeux dont 15 originaux. Valeur : 5500 F. Vendu : 
3000 F. Tél. au 27.97.54.82 et demander Mic- 
kaël. 


+ Cambio programas paras CPC 6128 en disco. 
Manuel Laorden, Valldemosa 15, 08016 Barce- 
lona, Espagne. 


+ Recherche clefs pour Amstrad 2 système dis- 
que et le livre du lecteur de disquettes. Tél. 
73.69.71.50, après 18h. 


ANNONCEZ-VOUS ! | 





LES PETITES ANNONCES ET LES MESSAGES H 





Attention, vos PA seront mises sur le serveur avant la parution du joumal 

















Mettre ce coupon + 4 timbres à 2,30 F dans une enveloppe. 
l Adresser le tout à : SORACOM - La Halo de Pan - 35170 BRUZ Ô 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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BON DE GOMMANDE EE IT ITU 


Pour chaque article, entourez le ou les n° choisis. 

ANCIENS Nos AMSTAR & CPC 

N°26-27-28-29-3%-31-32-33-34 25 F (unité) Franco 
35-36-38-39-40-41-42-43-44-45-46-47 26 F (unité) Franco 


DISQUETTES AMSTAR & CPC 
N°20-21-22-23-24-25-26 — 27 - 28-29-30 Abonné 110 F (unité) 
une disquette réunit 2 numéros consécutifs d'Amstar & CPC) Non abonné 140 F {unité} 


ANCIEN No CPC Infos 
N°25-—26-— 27 — 28-29 — 30 — 31 -32 26 F {unité) Franco 


Franco 
Franco 


DISQUETTES CPC Infos Abonné : 

— MEGA SOUND 110 F (unité) Franco 
— N° 31 (Am’Star 48 & CPC Infos 24) — N° 32 (CPC Infos 25 & 26) — N° 33 (CPC Infos 27 & 28) Non abonné : 

— N° 34 (CPC Infos 29 & 30) — N° 35 (CPC Infos 31 & 32) 140 F {unité) Franco 


ANCIENS Nos CPC | 

N° 11-13-1618 23-— 24-25-96 25 F (unité) Franco 
21-28 29 — 30 — 31 — 32— 33 34— 36 — 37 

ANCIENS Nos HORS-SERIE CPC 

N°7-8-9-10- 12-13—14-15-16 21 (unité) 

N°17—18—19-— 20 — 21-22-23 23 F (unité) 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC , 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-—19 Abonné : 

une disquette réunit 2 numéros consécutifs de CPC) 110F funité) Franco 
HS1 — HS2 — HS3 — HSA — HS5 — HS$ — HS7 — HS8 — HS9 — HS1O — HS11 Non abonné : 
HS12—HS13—HS14—HS15 — HS16—HS17 — HS18— HS19 — H520 — HS21 -- HS22 -- HS23 140 F (unité) Franco 


ABONNEMENT 6 DISQUETTES {non rétroactif) Franco 


DISQUETTES “ARCADES/” Téléchargement AMSTRAD CPC 5F 
CABLE pour téléchargement SF 
(Téléchargement non compatible avec 6128+ et 464+] 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 


Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : Q Facultatif : recommandé + 10 F par commande 
prendre contact avec le service commercial MONTANT GLOBAL 


Je joins mon règlement :  O chèque bancaire Q chèque postal  Q mandat CPC Infos 33 
PAYEZ PAR CARTE BANCAIRE | | | Nom: 
SO A SR DE A EN Adresse : 
Date d'expiration | 1 | 1 | Signature 


[inscrire les numéros de la carte, la date et signer} Code Postal : _______ Ville: 


ECRIRE EN MAJUSCULES 


Date et signature Signature Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 


tèle de ne pas agraler les chèques, et de ne rien inscrire au dos. 











Commande : La commande doit comporter tous les renseignements demandés sur le bon de commande (désignation ou rélérence si celle-ci existe). Toute absence de précisions et sous la responsabilité de l'acheteur. La vente est 
condus dès acceptafon du bon de commande par notre sodété, sur les articles disponibles uniquement. 

Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. 

Livraison : La Iimraison intervient après le règlement Les délais de Evraison étant de 10 à 15 jours environ, SORACOM ne pourra bte tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Transport : La marchandise voyage aux risques et périls du destinataire. La ivraison se faisant par cols postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possiblité d'ajuster le prix de transport enfonction du coût réel de celui-d. Pour bénéficier de recours possible nous invitons notre aimable clientèle à opter pour 
l'envoi en recommandé. À récepion des paquets, toute détérioration doit être signalée Réclamation : Toute rédamaton doit intervenir dans les dix jours suivants la réception des marchandises. 




















ous devez avoir maintenant les fichiers 

\/ GRAPHESA et GRAPHESB sur votre dis- 
quette. Utilisez FUSION2 pour les ras- 

sembler en un seul. Il est plutôt conseillé de 

mettre les Datas sur une face et les “pro- 

duits” sur une autre, à cause du manque de 

place. 

Pour le reste des programmes, il suffit de pro- 

céder comme d'habitude. 

Vous devez donc avoir les fichiers suivants 

sur votre disquette : 

1.AXS 

2.AXS 

3.AXS 


DATAS7D.BAS (suite) 


nue um 


338 DATA FF,15,14,14,14,15,89,FF, DE, DE, 15, 14, 14, 14, 15, 366 
349 DATA 0E,9E, 15,14, 14,14, 15,9E,E, 25,25, 15, 14, 14, 14, 139 
359 DATA 15,25,25,15,14,14,14,15,25,25,25,25,15, 14,14, 196 
368 DATA 14,15,25,25,15,14,14,14,15,25,25,25,25,15, 14,196 
378 DATA 14,14,15,25,25,15,14,14,14,15,25,25,9E,9E, 15, 168 
384 DATA 15,15,15,15,/E,9E, 15,15,15,15,15,8E, DE, BB, FF, 1FF 
398 DATA SE, 19,8E, BE, BE, 8B, FF, 8E, 9E,0E, 19,9E, 9B,FF, BB, 341 
488 DATA FF,9E,0E,0E, BE, 9E, 8B,FF,9E,8E, PE, 9E, DE, 6B,FF, 49F 
A8 DATA SE, BE, 15,15,15,15,15,8E, 0€, 15,15, 15,15, 15,9E, 118 
428 DATA 9E,25, 25,15, 14,14, 14,15,25,25,15,14, 14, 14, 15, 16E 
438 DATA 25,25,25,25,15,14, 14,14, 15,25, 25,15, 14,14, 14,195 
448 DATA 15,25,25,25,25,15,14,14,14,15,25,25,15, 14, 14, 196 
458 DATA 14,15,25,25,15,15,15, 14, 14,14, 15,15, 15,15, 14, 156 


Fabien FESSARD & Stéphane ST-MARTIN 
Valable pour CPC 6128, 464 + ext. 64 ko 


mt 





4.AXS 

5S.AXS 

6.AXS 
AXYS.BIN 
GRAPHES.AXS 
INTRO.AXS 
MASK.AXS 
PROGRAM.AXS 
SOUND.AXS 
SPRITE.AXS 
START.AXS 
WAVE.AXS 
Pour lancer le programme, faire RUN 
*AXYS”. 





468 DATA 
479 DATA 
489 DATA 
498 DATA 
598 DATA 
519 DATA 
528 DATA 
534 DATA 


14,14,15,15,15,14,14,14,12,9F,13, 14,14, 14,14, 127 
12,9F,13,14,14,14,14,14,14, 9D, 19,9C,14,14,14,11A 
14,90, 19,4C, 14,14,14,14,14,14,19,8E,11,14,14,115 
14,14,19,8E,11,14,14,14,15,15,15, 14,14, 14,15, 123 
15,15,15,14,14,14,15,15,15,25,25,15,14,14,14,155 
15,25,25,15,14,14,14,15,25,25,25,25,15, 14,14, 196 
14,15,25,25,15,14,14,14,15,25,25,26,25,15,14, 196 
14,14,15,25,25,15,14,14,14,15,25,25,25,25, 15,196 
548 DATA 15,14,15,15,25,25,15,15,14,15,15,25,25,25, 25,199 
559 DATA 25,15,15,15,25,84,FF,25,15,15, 15, 25,25, 25,95, 264 
568 DATA FF,25,25,25,26,25,84,FF,25, 25,25, 25,25,85,FF,4F8 
579 DATA 85,FF,25,25,25,25,26,25,25,25, 25, 25,25, 25, 85, 3C5 
589 DATA FF,25,25,12,6F,9F,0F,0F,0F,9F,9F,0F,0F,0F, 13,294 
598 DATA 25,25,25,25, 8D, BE, SE, 16, 16, 16, 16, 16, 16,8E, DE, 15D 
689 DATA 9C,25,25,25,25,9D,E,9E, 16,15,15,15,15,16,8E, 157 
619 DATA BE, 8C,25,25, 25,25, 8D, 16, 16, 16, 15, 15,15,15,16, 167 
628 DATA 16,16, 90,25, 25,25, 25,8D,16,15,15,15,15,15,15,16D 
639 DATA 15,15,16,8C,25,25, SA, FF, 0D, 16, 15, 15,16, 16, 16, 22E 
649 DATA 16,15,15,16,8C,25,25,8A,FF,9D, 16, 15,15, 16,0E, 2A6 
659 DATA 6E,16,15,15,16,8C, 25,25,25,25, 80, 16, 15,15, 16,167 
668 DATA DE,0E, 16,16,16,16,8C,25,25,25,25, 8D, 16,15, 15,161 
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674 DATA 
689 DATA 
698 DATA 
798 DATA 
719 DATA 
728 DATA 
739 DATA 
74ÿ DATA 
759 DATA 
769 DATA 
774 DATA 
788 DATA 
799 DATA 
899 DATA 
819 DATA 
828 DATA 
834 DATA 
84ÿ DATA 


16,89€, 8E, 89,FF,9E, BE, 9C, 25,25, 25,25,9D, 16,15, 225 
15,16,9E,9E, 89,FF,0E,9E, 90, 25,25,25,25, QD, 16, 2A5 
15,15,16,DE, SE, 0E, DE, DE, DE, OC, 25,25,25,25, 8D, 141 
16,15,15,16,9E,9E,0E,9E, DE, DE, 0C,25,25,25,25, 14A 
#D,16,15,15,16,99,FF,0E, DE, DE, DE, 0C, 25,25, 25,215 
25,90, 16,15,15,16,89,FF,0E,9E,9E, DE, C, BA, FF, 354 
25,25,89D,16,15,15,16,9E, EF, 16,16, 16,16, 0C, 8A, 1B7 
FF,25,25,9D, 16,15,15,16,8E,0E, 16,15, 15,16, 4C, 22A 
25,25,25,25,8D,16,15,15, 16,16, 16,16, 15,15,16, 179 
9C,25,25,25,25,8D,16,15,15,15,15,15,15,15,15,16B 
16,90, 25,25,25,25, D, 16, 16,16, 15,15,15, 15,16, 16F 
16,16,9C,25,25,9E,0E, 9D,8E,0E, 16,15,15,15,15,131 
16,9E, 8E, 9C, BE, 0E, DE, 18, 17,9E,0E, 16,15, 15,15, 198 
15,16,8E,9E, 16,17,0E,0E, 18,17,0E,0E, 16,15,15,11D 
15,15,16,2E, DE, 18, 17,9E, 19,18, 17,0E,9E, 16, 15, 128 
15,15,15,16,9E, DE, 18,17, 19,9E, 0E, OD, SE, DE, 16,114 
15,15,15,15,16,9E, 0E, OC, DE, 9E, 25,25, 9D, 16,16, 131 
16,15,15,15,15,16,16,16,9C,25,25,25,25, 8D, 16, 16F 
858 DATA 15,15,15,15,15,15,15,15,16,9C, 25,25, 25, 25, £D, 16B 
868 DATA 16,15,15,15,15,15,15,15,15,16,4C,25,25,8E, DE, 146 
879 DATA 8E,16,15,15,15,15,15,15,15,15,16,9E,05,FF, DE, 292 
889 DATA DE, BE, 16,16,16,16,16,16,16,16,16,16,0E,85,FF, 28A 
898 DATA 25,25,25,25,25,25,E,9E, DE, 0E, 25,25, 25,25, 25, {CF 
998 DATA 25,25,25,25,25,25,25,9E,0E,DE, DE, 25,25, 25,25, 1CF 
919 DATA 25,25,85,FF,0E, 16, 16,16, 16, 16, 16, 16, 16,16, 16,238 
924 DATA DE,E, DE, 65, FF,9E, 16,15,15,15,15,15,15, 15, 15,27 
939 DATA 16,8E, DE, BE, 25,25, 9D, 16, 15,15, 15,15,15, 15,15, 149 
949 DATA 15,16,9C,25,25,25,25,8D, 16,15, 15,15,15, 15,15, 16C 
959 DATA 15,15,16,8C,25,25,25,25, QD, 16, 15,15,15,15, 15, 16C 
868 DATA 15,15,15,16,9C,25,25,25,25,9D,16,15,15,15,15, 16C 
979 DATA 15,15,15,15,16,8C, 25,25, 25,25, 9D, 16,16, 16,16, 16F 
989 DATA 16,16,16,16,16, 16, 90,25, 25,25,25,19,0E, BE, SE, 15E 
999 DATA BE, BE, BE, BE, SE, BE, DE, 11,25, 25,25,26,25,25, 25,176 
1999 DATA 25,25,0E,8E, 25, 9A,FF, 25,25, 25,25, 0B,FF, 25,25, 37C 
1919 DATA 25,25,25,9E, 9E, 25,8A,FF,25,25,25,25,8B,FF, 25, 47C 
1929 DATA 25,25,25,25,0E, 8E, 25, 25,25, 25,25,25,25,25,25, {FD 
1839 DATA 25,25,25,25,25, SE, DE, 25,25, 25,25,25,25, 25,25, 1FD 
1949 DATA 25,25,25,25,25,25,9E,9E, 25,25, 9B,FF,25,25,25, 2BD 
1954 DATA 25,25,25,25,25,25,25,9E, DE, 25,25,8B,FF, 25,25, 33D 
1969 DATA 25,9E,DE, DE, QE, SE, GE, 0E,0E, DE, DE, 9E, DE, DE, QE, E9 
1479 DATA SE,9E,9E,9E, DE, 0E, QE, DE, DE, BE, DE, DE, DE, DE, DE, D2 
1989 DATA DE,DE, BE, 85,FF, 25,25, 25,25,25,9E, 9E, 25, 25, 25, 272 
1999 DATA 25,25,05,FF,85,FF,25,25,25,25,25,9E, BE, 25, 25, 3F1 
1199 DATA 25,25,25,85,FF,9E, DE, 25,25, 25,25, 25, E, DE, 25, 309 
1119 DATA 25,25,25,25,0E,9E,DE,9E, 25,25,25,25,25,9E, GE, LA 
1129 DATA 25,25,25,25,25,9E,8E, DE, DE, 25,25, 25,25, 25,9E, 1B8 
1139 DATA DE, 25,25,25,25,25,0E,8E,DE,9E, 25, 24,25, 25,25, 1B7 
1149 DATA DE, DE,25,25,25,25,25,9E, DE, DE, 9E, DE, DE, 25, 25,173 
1159 DATA 25,0E, DE, 25, 9A,FF,25,25,0E,0E,0B,FF, DE, DE, 25, 329 
1169 DATA 25,25,0E,9E, 25,8A,FF,25,25,9E,9E, 8B,FF, DE, DE, 429 
1179 DATA 25,26,25,9E, DE, 25,25,25,25,25,0E,9E, DE, BE, 25, 1AL 
1189 DATA 25,25,25,25,0E, BE, 0E, DE, 25,25,25,9E,9E,9E,9E, 173 
1199 DATA 25,25,25,25,25,9E,DE, DE, BE, 25,25,25,8E, BE, SE, 18A 
1289 DATA 9E,25,25,25,25,25,0E,8E, DE, 0E, 25,25,25,0E, SE, 18A 
1219 DATA 9E,9E, 25,23, 22,25,26,9E,9E, 25,25, 25, 25,25, E, 1B3 
1229 DATA DE, SE, 0E, 25,23, 22,25,25,9E,8E, 25, 25,25, 25, 25, 1B3 
1239 DATA 9E,8E,9E,9E, 25,25,25,0E, DE, 9E,8E, 25, 25,25,25,173 
1249 DATA 25,8E,8E, DE, OE, 25,25, 25,0E, 8E, DE, SE, 25, 23, 22, 16E 
1259 DATA 25,25,0E, DE, DE, 9E,25,25,25,9E, BE, DE, DE, 25,23,171 
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1269 DATA 22,25,25,0E,0E,E, 9E, 25,25,25,25,25,9E, DE, 25, 19E 
1278 DATA 25,25,0E,0E,95,FF,9E,E,25,25,25,25,25,0E, 8E, 25B 
1289 DATA 25,25,25,0E,9E, 85,FF, DE, SE, 25,25,25,25, 25,4E, 2F2 
1299 DATA DE,25,25,25,9E, SE, DE, DE, DE, DE, 25, 25,25, 25,25, 18A 
1399 DATA 6E,9E,25,06,FF, 25,25, 0E, GE, DE, 9E, 25,99,FF, 25, 38B 
1319 DATA 25,8E,9E,25,80,FF,25,25,9E, BE, DE, 0E, 25, 89,FF, 49B 
1328 DATA 25,25,8E,8E, 25,25,25,25,25,8E, 0E, 9B,FF, 25,25, 28F 
1338 DATA 25,25,25,9E,9E, 25,25, 25,25,25,9B,FF,8B,FF,25, 3FD 
134$ DATA 25,25,25,25,DE,8E, 25,25,25,25,25, 8B,FF, DE, 9E, 30F 
1359 DATA 25,25,25,25,25,9E,9E, 25,25, 25,25, 25,0E, BE, 25, 1CF 
1368 DATA 25,25,25,25,25,25,8E, DE, 25,25, 25, 25,25, 25,25, 1FD 
1374 DATA 25,25,25,25,25,25,25,0E,9E, 25,25,25,25, 25,25, FD 
1389 DATA 25,25,24,25,25,25,25,26,9E,8E, 25, 25,25, 25,25, {FC 
1399 DATA 24,25,25,25,25,25,25,25,25,25,25,25,25,25,25,22A 
1499 DATA 25,25,25,25,25,12,6F,0F,9F,0F,9F,0F,0F,0F,0F, 152 
1419 DATA 9F,13,25,25,9E,0E,0E, 16,16,16,16,16,16,16,16,146 
1429 DATA 16,16,8E,0E, DE, DE, DE, DE, 16,15,15,15,15,15,15,114 
1439 DATA 15,15,16,0E,0E,0E, O6, 0E, DE, 16,16,16,16,16,16,118 
1449 DATA 16,16,16,16,0E,E, 9E, 25,25, 19,9E,9E,0E, DE, DE, 122 
1459 DATA DE, E, DE, 9E, DE, 11,25,25,00,09,00,00,00, 90,00, A1m 


FUSION2.BAS 
a 


19 ' Fusion des Fichiers DATASBA-B 

28 ? en 1 fichier GRAPHES. AXS 

38 ' 

49 A$="GRAPHESA, BIN":B$="GRAPHESB, BIN" 

58 OPENOUT"S":MEMORY &14FF:LOAD A$,&2999:LOAD B$,&4998 


69 ‘ERA, @A$: ERA, @B$ : SAVE"GRAPHES. AXS", B, k2299, k499D:CLS : END 





DATAS/E.BAS 


18 ? DATAS7E AXYS 

29 

39 MODE 2:AD=&CB98:NL-98 

49 FOR A=1 TO 137:B=8:FOR C=1 TO 15:READ A$ 
59 POKE AD, VAL("&"+A$) :B=B+PEEK (AD) : AD=AD+1 
69 NEXT:READ E$:IF VAL("&"+E$)CB THEN 89 





46 





79 NLENL+IZ:NEXT:SAVE"5, AXS",B, &CO9B, &B99:CLS : END 

88 CLS:PRINT'LIGNE"NL;" INCORRECTE" : END 

99 DATA 26,29, 29,29, 29,29,29,29,29, 29,29, 29, 29, 20, 29, 264 

198 DATA 27,1E,12,0F,8F,9F,9F,0F,0F,9F,0F,0F,0F,0F,UF,19B 
119 DATA 13,1D,1E,8D,8E,18,17,80E,0E,94,FF,9E,9E, 18, 17,292 
129 DATA DE, 9C, D, 1E, 8D, SE, 18,17,8E,0E, 84,FF,DE, BE, 18, 272 
138 DATA 17,9E,8C, 1D,26,19,8E,8E,9E, UE, DE, 9E, DE, 9E, DE, 192 
149 DATA QE,DE,9E, 11,27, 2A, 2A,2A, 2A,2A, 2A,2B,BE, BE, 2C, 1D1 
159 DATA 2A,2A,2A, 2A, 2A,2A,8B,FF,25,25,25,25, 1E,9E, DE, 2D4 
169 DATA 1D,25,25,25,25,89B,FF,8B,FF,25,25,25,25,1E,E, 495 
179 DATA SE, 1D,25,25,25,25,8B,FF,25,25,25,25,25,25,1E, 345 
189 DATA DE, SE, 1D,25,25,25,25,25,25,25,25,25,25,25,25,1F5 
198 DATA ÎE,DE,E, 1D,25,25,25,25,25,25,25,25,25,25,25,1FE 
298 DATA 25,1E,9E,9E, 1D,25,25,25,25,25,25,25,25,25,25,1FE 
219 DATA 25,25,1E, BE, SE, 1D,25,25,25,26,25,25,25,25,9B, {D4 
228 DATA FF,25,25,1E,9E,SE, 1D,25,25,8B,FF,25,25, 25,25, 388 
239 DATA 8B,FF,25,25,1FE,9E, DE, 1D, 25,25, 8B,FF,25,25,25, 46E 
249 DATA 25,25,25,25,25,1E, DE, GE, D,25,25,25,25,25,25,1FE 
259 DATA 25,25,25,25,25,26,1E,9E, DE, 10, 25,25,25,25,25,1EE 
269 DATA 25,25,25,25,25,25,25,1E,0E, DE, 1D,25,25,25,25,1EE 
279 DATA 25,25,25,25,25,25,25,26,1E,9E,9E, 1D,25,25,25, FE 
284 DATA 25,25,25,25,25,25,25,25,25,1E,E,9E, 1D,25,25,1EE 
298 DATA 25,25,25, 25,29, 29, 29, 29,29, 29,26,8E, DE, 27, 29,21C 
399 DATA 29,29, 29,29,29,0E, DE, DE, DE, SE, DE, BE, SE, DE, DE, 159 
319 DATA SE, BE, PE, BE, DE, PE, DE, 05,FF,0E,DE,0E,0E,95,FF,2A2 
328 DATA SE, GE, DE, DE, 95,FF,BE, DE, 85,FF,DE, JE, DE, SE, 85, 399 
338 DATA FF,BE, BE, DE, DE, 65, FF,9E, 0E,0E, 9E,0E, DE, OE, JE, 32B 
349 DATA ÊE, DE, JE, QE, DE, E, DE, DE, 0E, DE, DE, DE, 0E, DE, SE, D2 

359 DATA BE, SE, DE, DE, DE, 0E, DE, 0E, DE, DE, 2A, 2A, 2A, 2A, 2A,15E 
369 DATA 2A,2A, 2A, 2A, 2A,2A, 2A,2A, 2A,2A, 2A,25,25,25,25, 262 
379 DATA 25,25,2 ne 25, 25, 25,25, 25,25, 25,2E,2E, 23D 
389 DATA 2E,25, 

399 DATA 2F,2F, 
498 DATA 25,25, 
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2 
2 
2 ,25,8A,FF,25,25, 25,25, 25, 25, 25, 364 
419 DATA B,FF,1A,29,29, 29, 1B, 25,25, A, 29,29, 29, 18, SB, 2HF 
429 DATA FF,6B,FF,1E,DE,9E, DE, 10, 25,25, 1E,8E, DE, BE, 1D, 30D 
438 DATA 8B,FF,25,25,1E,0F,0F,9F, 1D,25,25,1E,8F,0F,ÛF,2D1 
449 DATA 1D,25,25,25,25, 1E,9F,9F,8F, 1D,25,25,1E,8F,0F, 19F 
458 DATA 9F,1D,25,25,25,25,1E,9F,9F,9F,27,29,29,26,F, 1B9 
469 DATA 9F,0F, 1D,25,25,23,22,1E,8F,95,FF,9F,0F,8F,0F,237 


5 
5 
5 
5 
A 


’ 
, 
0 
, 


470 
489 DATA 8F,9F,9F,0F,1D,23,22,25,25,1E,0F,0F,BF,2C, 2A, 189 


DATA 8F,8F,9F,1D,23,22,23,22,1E,9F,85,FF,9F,9F,0F, 282 


499 DATA 2A,2B,8F,8F,8F, 1D,25,25,25,25,1E,9F,9F,0F, 1D, 19B 
599 DATA 25,25,1E,95,FF,9F,1D,25,25,25,25,1E,8F,8F,9F,277 
519 DATA 1D,25,25,1E,85,FF,9F, 1D, 25,25, 25,25, {E, SE, SE, 393 
528 DATA SE, 1D,25,25,1E,6E,/E,0E, 1D,25,25,25,25,1E, GE, 19A 
538 DATA BE, BE, 27,29,29,26,8E,0E, DE, 1D, 25,25,25,25, ÎE, 1B4 
549 DATA 9D,99,FF,8E,0E,6E,E,09,FF,0C, 1D, 25,25, 25,25, 398 
559 DATA LE, 6D,89,FF,8E,9E, DE, 0E, 89,FF, 9C, 1D, 25,25, 25, 3F9 
569 DATA 25,1E,19,9E,0E,9E,0E,9E,DE,DE, DE, 11,10, 25,25, 138 
579 DATA 25,25,1F,2A, 2A, 24, 2A, 2A,2A, 2A, 2A,2A, 2, 28,25, 252 
589 DATA 25,9B,FF,25,25,25,25,25,25,25,25,25,25,25,25,2EB 
599 DATA 8B,FF,8B,FF,25,25,25,25,25,25, 25,25, 25,25, 25, 42B 
688 DATA 25,8B,FF,25,25,1A, Fi 29,1B,25,25,25,25,25,25, 35E 
619 DATA 25,25,25,25,25,1E, 12,9F,0F, 13, 1D, 25,25, 25, 25, {CB 
629 DATA 25,25,25,25,25,25, IE, 9D,15,15,4C, 1D, 25,25, 25, CB 
639 DATA 25,25,25,25,25,25,25,1E,9D, 15, 15,90, 1D, 25, 25, {CB 
649 DATA 25,14,29,29,1B,25,25,25,1E,8D,85,FF,0C, 1D, 25, 298 
659 DATA 25,1E,12,8F,8F,193,1D,25,25,1E, 9D, 85,FF,9C, 1D,2C5 
669 DATA 25,25,1E,9D,15,15,8C,1D,25,25,1E, 8D, 15,15,9C,173 
679 DATA 1D,25,25,1E,8D,15,15,9C,1D,25,25,{E,9D,15,15,184 
684 DATA 9C,1D,25,25,1E,8D,15,15,8C,1D,25,25,1E, 8D, 15,17B 
699 DATA 15,8C,1D,25,25,1E, 9D, 15,15, 9C, 1D, 25,25, 1E, SD, 17B 
799 DATA 15,15,9C,1D,25,25,1E, D, 15,15,0C, 1D,25,25, {E, 183 
719 DATA 8D,15,15,8C,1D,25,25,1E,9D,95,FF,0C, 10,25, 25, 24C 
729 DATA 1E,8D,15,15,9C,1D,84,FF, LE, 9D,85,FF,0C, 1D, 25,37E 
739 DATA 25,1E,9D,15,15,9C, 1D,84,FF,1E, 9D, 15,15,9C, ID, 2A4 
74ÿ DATA 25,25,1E,9D,15,15,0C,1D,25,25,1E,0D,15,15,8C,173 
758 DATA 1D,25,25,1E, 8D,85,FF, 9C, 1D,25,25,1E,0D,15,15,25E 
768 DATA 9C, 1D,25,25,1E,4D,85,FF,0C, 1D,25,25,1E,9D, 15,2D5 
779 DATA 15,0C,1D,25,25,1E, 9D, 15,15, 9C, 1D, 25,25, 1E, SD, 17B 
788 DATA 15,15,9C,1D,25,25,1E,9D,15,15,8C, 1D, 25,25, 1E, 183 
799 DATA 8D,15,15,8C, 1D, 25,25, 1E, 6D,99,FF,9C, 1D,25, 25,247 
899 DATA E,9D,15,15,8C, 1D, 25,25, 1E, D, 89,FF,9C, 1D, 25, 2C8 
819 DATA 25,1E,8D,85,FF,0C, 1D, 25,25, {E, SD, 15, 15,9C, 1D, 245 
829 DATA 23,22,1E,8D,65,FF,0C, 1D,25,25,1E, 19, DE, DE, 11, 2C2 
838 DATA 1D,23,22,1E,8D,15,15,9C, 1D,25,25, {F,2A,2A, 2A, {CT 
849 DATA 2A,29,25,25,1E,9D,15,15,8C, 1D, 25,25,25, 25,25, {CB 
859 DATA 25,25,25,25,25,1E, 19,9E,9E, 11, 1D,25,25,1A,29,1BE 
869 DATA 29,29,29,29,29,1B,1F,2A, 2A,2A, 2A,29,25,1E, 12,224 
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870 DATA 8F,9F,8F,9F,8F,8F,13, 10, 25,25, 25,25, 25,25, LE, 186 
888 DATA 9D,15,15,15,15,15,15,8C, 10, 25,25, 25,25, 25,25, 192 
899 DATA LE, 8D,15,15,85,FF,15, 15,00, 1D, 25, 2E, 2E, 2E, 2E, 289 
998 DATA 25,1E,8D,15,15,85,FF,15, 15,80, 1D, 25, 2F, 2F, 2F, 393 
919 DATA 2F,25,1E,19,8E,8E, 0E,0E,0E,0E, 11, 1D, 25,25, 25, 173 
929 DATA 25,25, 25,25, 1F, 2A, 2A, 2A, 24, 2A, 24, 29,25, 19, 25, 232 
938 DATA 25,25,19,25, 25,25, 25, 25,25, 25, 25, 25,25, 25, 25, 21F 
949 DATA 25,25, 25,25, 25, 25, 25,25, 25,25, 25, 25,25, 25, 25, 228 
958 DATA 25,25, 25,25, 25, 25, 25,25, 23, 22, 25,25, 25, 25, 25, 226 
969 DATA 25, {A, 29, 29, 29, 1B, 25,25, 25, 23, 22, 25,25, 89, FF, 2D2 
979 DATA 25,1E,12,8F,8F,8F, 13, 1D, 25, 25, 23, 22, 25, 25, BB, 208 
989 DATA FF,25, 16,00, 15,15,15,4C, 1D, 25,25, 25,25, 25,25, 295 
999 DATA 25,25,25,1E, D, 15,19, 15,40, 1D, 25,88,FF, 25,25, 274 
1989 DATA 25,25,25,25,1E, 80,15, 15,15, 4C, 10, 25,88, FF, 25, 2F4 
1919 DATA 25,25, 25,24, 25, 1E,8D,15,15,15,8C, 1D, 25, 25,25, 1BA 
1928 DATA 25,25,25,25, 25,25, 1E, 80, 15, 19, 15,00, 1D, 25,25, 1BF 
1939 DATA 25,25, 25,25, 25,25, 25, 1E,9D,15,15,15,8C, 1D, 25, 1BB 
1949 DATA 25, 25,25, 25,25, 25, 25,95, 1E, 4D, 15,15, 15, 4C, {D, BB 
1859 DATA 25,25, 25,25, 25,25, 25, 25,25, 1E,0D, 15, 19, 15, 8C, 1C7 
1969 DATA 1D, 29, 29, 29, 29, 29, 29, 29, 29, 29, 26, 80, 15, 15, 15, 248 
1878 DATA 4C,27,0F,0F,0F,0F,8F,0F,0F,0F,0F,0F,F, 15,15, 192 
1989 DATA 15,9F,4F, 15,15,15,15,15,15,15,15,15,15,15,15, 12F 
1999 DATA 15,15,15,15,15,15,95,FF,15,15,15,95,FF, 15,15, 2EF 
1199 DATA 15,15,15,15,15,15,15,65,FF,15,15,15,65,FF,15,3EF 
1119 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,13B 
1129 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15, 13B 
1139 DATA 15,15,15,15,15,15,15,15,6E,0E,15,15,15,8E,8E, 11F 
1149 DATA 66,09€, 86, 0€, 8€, 0€, 8€, 9E, DE, 28, D, 15,19, 15,00, 185 
1159 DATA 20, 2A, 2A, 2A, 2A, 2A, 28, 2A, 28, 2A, LE, 6D,15,15,15,218 
1169 DATA 4C, 1D, 25,25, 25, 25, 25, 25,25, 25,25, 1E, 4D, 15, 15, 1CB 
1179 DATA 15,00, 10,25, 25, 25,9A,FF, 25, 25,25,25, LE, 8D, 15, 28A 
1189 DATA 19, 15,80, 10,25, 25, 25, 8A,FF, 25, 25,25, 25, 1E, 6D, 38E 
1199 DATA 15,15, 15,00, 1, 25, 25, 25,25, 25, 25,25, 25, 25, 1E, 1D3 
1289 DATA 8D, 15,15, 15,40, 1D, 25, 25, 25,25, 25, 25, 25, 25,25, 1C2 
1219 DATA 1E, 00, 15,19, 15,40, 1D, 25,25, 25,25, 25,25, 25,25, 1BF 
1229 DATA 25, 1E,8D,15,15,15,4C, 1D, 25,45, FF, 25, 25, 25, 25, 275 
1239 DATA 25,25, 16,00, 15,15,15,9C, 1D, 25,65,FF, 25, 25,25, 2F5 
1249 DATA 25,25,25, 1E, D, 15,19, 15,00, 1D, 25, 25,25, 25,25, 1BF 
1259 DATA 25,25,25,25, 16,00, 15,9E, 15, C, 1D, 25,25, 25,25, 1B4 
1269 DATA 25,08,FF, 25,25, 1E,19,8E,0E, 9€, 11, 1D, 25, 25,25, 263 
1278 DATA 25,25, 68,FF, 25,25, 25, 1F, 2A, 2A, 28, 28, 25, 25, 25, 364 
1289 DATA 25,25, 25,25, 25, 25, 25, 25, 1A, 29, 29, 29, 29, 29, 29, 236 
1299 DATA 29,29, 29, 29, 29, 29, 18, 25, 1E, 12,9F,9F,8F,8F,0F, 1B1 
1349 DATA 9F,9F,8F,8F,9F,8F,0F, 13, 1D, 1E, 40,15, 15,15, 15,118 
1319 DATA 15,15,15,15,15,15,15,15,8C, 1, 1E, D, 15,8B,FF,21B 
1329 DATA 15,15,15,15,15,15,8B,FF,15,0C, 1D, 1E, 9D, 15,88, 291 
1339 DATA FF,15,15,15,15,15,15,8B,FF, 15,80, 10, LE, 19,E, 981 
1349 DATA 8€, 0€, RE, 8€, 15,15,0E,8E, 0€, 8E, 0E, 11, 1D, 25, 1F, 11A 
1354 DATA 2A, 2A, 2A, 2B, 6D,44,FF, 0C, 20, 2A, 2, 24, 28, 25, 25, 2D9 
1368 DATA 25,25, 25,25, 1E, 8D, 84, FF, 00, 1D, 25, 25,25, 25, 25, 324 
1379 DATA 95,25, 25,25, 25, 1E,9D, 15,15, 4C, 1D, 25,25, 25, 25, 1CB 
1389 DATA 25, 1A, 29, 29, 29, 29, 26, 8D, 15,15, 4C, 27, 29, 29, 29, 1FE 
1399 DATA 29, 18, 1E, 8€, 9€, 9E, 96, 9E,0E, 6E,0E,6E, DE, BE, BE, 19A 
1489 DATA 8E,E, 1D, 1E,4E, 18,17, 8E, 0€, 8E, 18, 17,9E,6E,0E, 117 
1419 DATA 18,17,E, 1, 1E,0E, 18,17,8E,6E, PE, 18, 17,8E, PE, 12A 
1429 DATA 8E, 16, 17,9E, 10, 1E,8E, 18,17,9E,0E,9E, 18, 17,9E, 12A 
1439 DATA 9E, 8€, 18, 17,9E, 1D, 1E,#E,9E, SE, 6E,6E, SE, 8E, SE, 194 
1449 DATA 9E, 8€, BE, 8E, BE, PE, 10, 1F, 2A, 2A, 2A, 2, 24, 2A, 24, {BG 
1459 DATA 2A, 2A, 2A, 2A, 24, 24, 2A, 28,58, 68,08,69,80, 80,00, 46m 





19" DATAS7F AXYS 

29 

39 MODE 2:AD=4C994:NL=99 

ag FOR A=1 TO 137:B=9:FOR C1 TO 1S:READ AS 

59 POKE AD, VAL("&"+A$) :B=B+PEEK (AD) :AD=AD+1 

69 NEXT:READ E$:1F VAL("&"4E$)OB THEN 89 

78 NLENL+L8:NEXT:SAVE"6. AXS", B, &CHDD, &89D:CLS : END 

89 CLS:PRINT'LIGNE"NL;" INCORRECTE" : END 

98 DATA 25,25,25,25, 25, 1E, 90, 15,15, 80, 1D, 25, 25, 25,25, 1CB 

188 DATA 25,25, 1A, 29, 29,29, 26,80, 15,15, 00, 27, 29, 29, 29, 1EA 
118 DATA 1B,25,25,1E,12,8F,0F,0F, 00, 15, 15,0C,0F,9F,8F, 132 
129 DATA 13,1D,25,25, 1E,9D, 15,15, 15,15, 15,15,0E,E, DE, 14D 
139 DATA €, 80,10, 25,25, 1E, 90, 15,15, 15, 15,15, 15,9E, 90, 138 
149 DATA FF,0E, 90, 10, 25,25, LE, 90, 0E,8E,0E,9E, 15, 15,0E, 21B 
159 DATA 88,FF,8E, 0C, 10, 25, 25, 1E,90,0E,05,FF,8E, 15, 15,375 
169 DATA 86,96, 0E,9E, 00, 10, 25,25, 1E,9D,0E,85,FF, DE, 15, 288 
179 DATA 15,15,15,15,15,9C, 10,25, 25, 1E, 9D,0E,9E,0E, DE, 13F 
189 DATA 15,15,15,15,15,15, 80, 1D, 25,25, 1E, 9, 15,15, 15,158 
199 DATA 15,15,15,15,15,15, 15,00, 1D, 25,25, 1E,0D,15, 15, 15B 
299 DATA 15,15, 15,15,15,15,15,15,8C, 1D,25,25, 1E, 80, 15, 158 
219 DATA 15,8A,FF,15,15,0E, 8E,0E, 9€, 0C, 1D, 25,25, 1E, 0, 21E 
228 DATA 15,15,8A,FF,15,15,0E,85,FF, EC, D, 25,25, 1E, 3BE 
239 DATA 6D,15,15,15,15,15,15,0E,85,FF,9E,0C, 1D, 25, 25, 29E 
249 DATA 1E,90,15,15,15,15,15,15,9E,8E,9E, DE, AC, 1D, 25, 12F 
259 DATA 25, LE, 8D,15,15,15,15,15,15, 15,15, 15,15, 0, 1D, 14B 
269 DATA 25,25, 16,80, 15,15,15,15,15,15,15,15, 15,15, 0C, 153 
278 DATA 1D,25,29,26, 80,15, 15,15, 15,15, 15,15,15,15, 15, 17 
289 DATA 4C, 1D,25,0E, 9€, 9€, 0E,9E, 2€, 9, E, 15,15,15, 15, 112 
299 DATA 15,40, 1D,25,8E,8E,0E, 84,FF,9E,0E,9E, 15,15, 15, 1FO 
399 DATA 15,15, 00,10, 25,99,FF,9E, 8û,FF, BE, BE, BE, 15, 15, 350 
318 DATA 15,15,15,8C, 10,25, 89,FF,0E,0E, /E,9E,9E,0E, 15,275 
329 DATA 15,15,15,15,8C, 10,25,8E,6E,9E,0E, BE, 9E, 0, 0E, 112 
334 DATA 15,15,15,15,15, 8, 1D, 25, 2A, 28, 90, 15,15, 15, 15, 16D 
349 DATA 15,15,15,15,15,15,8C, 1D,25,25, 1E, AD, 15,15, 15, 158 
354 DATA 15,15,15,15,15,15, 15,80, 1D, 25,25, 1E,6D, 15, 15, 158 
369 DATA 15,15,15,15,15,15, 15,15, 8C,27, 29,25, 1E, 8D, /E, 162 
374 DATA 8E,8E,15,15,15,9E, 9€, 0E, 0E,9E, 9E,0E, 25, 1E, 6, 19D 
386 DATA 98,FF,0E,15,15,15,8E,4E, 18, 17,0E,E, BE, 25, 1E, 260 
399 DATA 4D,88,FF,E, 15,15, 15,9E,9E, 18, 17,0E,0E, DE, 25, 278 
495 DATA 16,90, 08,96, 8€, 15,15, 15,9E,8E,E, 8€, 2E, BE, DE, F6 

419 DATA 25,16, 80,15,15,15, 15,15, 15,15, 15,15, 15,90, 2C, 154 
429 DATA 24,25, 1E,8D,15,15,15,15,15,15,15,15,15, 15, 8, 158 
439 DATA 10,25,25, LE, 80, 15, 15, 15, 15,15, 15,15, 15,15, 15, 164 
445 DATA 8, 1D,25,25, LE, 80, 15,15,15,15,15,15,15,15, 15, 158 
458 DATA 15,40, 10,25, 25, 1E, 80, 0E, €, 9, 08, 0E, 0E,0E, DE, 123 
468 DATA 9E,8E, 8, 10,25, 25, 1E,90,2E,95,FF,8E, 04, FF, GE, 2EB 
478 DATA 95,FF,8E, 8C, 10, 25, 25, 1E, 0D,9E, 85,FF,9E, 84, FF, 403 
488 DATA 9E,85,FF,9E, 80, 1D, 25,25, 1E, 19,8, EE, BE, BE, 287 
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499 DATA SE, BE, BE, BE, DE, 11,10, 25,25,25, 1F,2A, 2A, 2A, 2A, LAA 
588 DATA 2A,2A, 2A,2A, 2A, 2A,29,25,25,25,25,25, 25,25, 25, 244 
519 DATA 25,25,25,25,25,25,25,25,25,25,25,25,25,25, A, 22 
529 DATA 29,1B,25,25, 1A,29,1B,25,25,25,25,25, 25,25, 15, 294 
538 DATA 12,8F,13,1D,1E,12,9F,13, 15,25, 25,25, 15,15, 15, 166 
549 DATA 15,9D, 16,890, 1D, 1E, D, 16,8C,15,15,15,15,15, 15, 12C 
559 DATA 15,15, 8D,16,8C,1D, 1E, 9D, 16, 9C, 15,15, 15,15, 15, 12C 
569 DATA 15,15, 15,8D, 19,90, 1D,1E,8D, 19,9C,15,15,15, 15,132 
579 DATA 15,15,15,15, D, 16, 2C, 1D, 1€, 9D, 16,9C, 15,15, 15,12 
588 DATA 15,8B,FF,25,15,8D, 16,9C, 1D, 1E, D, 16,4C, 15, 25, 22C 
598 DATA 8B,FF,8B,FF,25,1E, 9D, 19, 9C, 1D, LE, 9D, 19, 4C, 1D, 393 
698 DATA 25,8B,FF,25, 25,25, 1E,9D, 16,80, 1D, 1E, 8D, 16, AC, 2D5 
619 DATA 1D,25,25,25,25,25,25, 1E, 9D, 16, 9C, 1D, 1E, #D, 16, 1A6 
628 DATA @C, 1D,25,25,25,25,88,FF,1E,8D, 19,8C, 1D, 1E, 9D, 254 
638 DATA 19,80, 1D,25,25,25,25,89,FF,1E, 9D, 16,8, 1D, 1E, 2DD 
649 DATA 9D, 16,90, 1D, 25,25,25,25,25,25, 1E, 8D, 16, 8C, 1D,194 
659 DATA LE, 8D,16,8C, 1D,25,25,25,25,25,25, 1E, 9D, 19, 8C, 198 
669 DATA 1D,1E,9D, 19,8C, 1D,88,FF,25,25,25,25, 1E, D, 16, 25E 
679 DATA 8C,1D,1E,0D, 16,90, 10, 89,FF,25,25,25,25, 1E, 6D, 2D1 
689 DATA 16,40, 1D, 1E, 8D, 16,80, 1D,25,25,25,25,25,25, 1E, 1A5 
699 DATA 8D,19,8C, 1D,1E, 8D, 19, 4C, 1D,25,25,25,25,95,FF, 254 
198 DATA 1E,9D,16,9C, 1D, 1E, 8D, 16,90, 1D,25,25,25,25,85, 1ED 
719 DATA FF,1E, D, 16, 8C, 1D, 1E, 8D, 16, 9C, 10,25, 25,25, 25,267 
728 DATA 25,25, 1E, 9D, 19,80, 1D, 1E, D, 19, 8C, 1D, 25,25, 25, 193 
739 DATA 25,25,25,1E, 80,16, 9C, 1D, 1E, D, 16,9C, 1D,25, 25, 18D 
749 DATA 25,25,25,25, 1E,8D, 16,80, 1D, 1E, 4D,16,9C, 1D, 95, 16D 
759 DATA FF,25,25,25,25,1E, 9D, 19, 9C, 1D, 1E, 9D, 19,90, 1D, 26D 
769 DATA 85,FF,25,25, 25,25, 1E,8D, 16,80, 1D, 1E, 8D, 16, 9C, 2CF 
779 DATA 1D,25,25,25,25,25,25, 15, 8D, 16, 90, 1D, 1E, 9D, 16, 19D 
788 DATA 9C,15,25,25,25,15,15,15,15,8D, 19,8, 1D, 1E, D, 15E 
798 DATA 19,80, 15,15,15,15,15,15,15,15, 9D, 16,8, 1D, LE, 137 
898 DATA 9D,16,0C,15,15,15,15,25,25,25, 15, 8D, 16, 8C, 1D, 153 
819 DATA LE, 8D,16,8C, 15,25, 25,25,25,25,25, 1E, 19,9E, 11, 18D 
828 DATA 1D,1F,19,9E,11,1D,25,25,25,25,8B,FF,25,1F, 2A, 293 
838 DATA 28,25,25,1F,24,29,25,9B,FF,25,25,8B,FF,25, 25, 428 
649 DATA 25,25,25,25, 25,25, 25,25, 8B,FF,25,25,25,25,25, 36B 
859 DATA 25,25,25,25,25,25,25,25,25,25,25,25,25,25, 25, 22B 
868 DATA 25,25,25,25,25,25,25,25,25,25,25,25,25,25, 15, 21B 
879 DATA 15,15,15,16,16,16, 16, 16, 16,15, 15,15,15,25,25,161 
889 DATA 16,16,16,16,16,16,16,16,16,16,16,16,16,16, 25,159 
898 DATA 25,16,16,16,16,16, 16, 16, 16, 16, 16,16, 16, 16,16,159 
999 DATA 25,25,15,15,15,15,15,16,16,16,16,15,15,15, 15,15F 
919 DATA 15,25,25,25,25,25,25,15,16, 16, 16,16, 15,25,25, 1BF 
924 DATA 25,25,25,25,98,FF,25,8E, 15,16,16,16, 16,15, SE, 256 
939 DATA 25,98,FF,25,25,89,FF,0E, 9E,0E, 0E,9E, SE, 9E, 0E, 35D 
948 DATA SE, 0E, 88,FF, 25,29, 1B,25,8E,8E, ÎE, 6E, DE, DE, DE, 28B 
959 DATA SE, SE, DE, 25, 14,29, 9F, 13, 1D,0E, DE, DA, FF,9E,#E, 212 
968 DATA 9E,8E,0E,9E, 1E, 12,9F,15,8C, 1D, 8E,9E, 8A,FF, DE, 268 
979 DATA SE, 8E,0E, BE, BE, LE, OD, 15, 19, 9C, 1D,25,9E,9E, DE, 117 
988 DATA DE, SE, 95,FF,9E,25, 1E,8D, 19,15, 9C, 10,25, 8E, SE, 216 
998 DATA $E, SE, BE, 85,FF,8E, 25, 1E, 9D, 15, DE, 11, 10,25, SE, 299 
1999 DATA 9E,9E,8E, DE, E, SE, 0E, 25, 1E, 19,0E, 2,26, 25,9E, 148 
1919 DATA 95,FF,9E,9E, 9E,9E,0E, DE, BE, 25, 1F,2A,25, 25,25, 243 
1929 DATA $E,85,FF,9E,8E, 9E, 9E, BE, DE, 8E, 25,25,25,25,25, 2AD 
1439 DATA 25,9E,0E, DE, 9E, 9E, 9E, 9E, DE, DE, DE, 25,25, 25,29, 149 
1949 DATA 1B,25,8E,8E,15,15,15, 15,15, 15,9E, 8E, 25, 1A, 29, 15E 
1958 DATA 9F,13, 1D,9E,9E, 15, 16,16, 16, 16,15,8E,8E, 1E, 12, 129 
1969 DATA 8F,16,8C, 1D,25,8E, 15, 16,89,FF, 16, 15,9E, 25, 1E, 227 
1478 DATA 8D,16,24,9C, 17, 25,8E, 15,16, 88,FF,16,15,8E, 25, 2AB 


1989 DATA LE, 8D, 24, 16,80, 1D,25,8E, 15,16, 16,16, 16, 15,9E, 151 
1999 DATA 25,1E, D, 16,0E, 11, 1D,9E,8E, #E,15,15,15,15,8E, 12E 
1199 DATA SE, 8E,1E, 19,8E, 2A, 29, 25,0E, 0E, 0E, DE, DE, DE, DE, 129 
1119 DATA BE, 0E,0E, 25, 1F, 24,25, 25,8E, BE, 95,FF,BE, BE, BE, 22C 
1128 DATA 9E,05,FF,0E,0E, 25, 25,25,25,8E,0E,85,FF,9E,9E, 37E 
1138 DATA 8E,0E,85,FF,9E,9E, 25,25,25,25,25,25, BE, SE, BE, 2C4 
1149 DATA BE,SE,8E,0E,0E, 25,25, 25,25,25,25,25,25, 25,25, 1BB 
1159 DATA 25,25,25,25,25,25,25,25,25,25,0B,FF,25, 1A,29,2E4 
1168 DATA 29,29,29, 29,29, 29,29, 1B,25,8B,FF,6B,FF, 25, 1E, 436 
1178 DATA 12,9F,9F,0F,9F,0F,0F,13,1D,25,8B,FF,25, 25,25, 2BA 
1189 DATA 1E,4D,15,15,15,15,15, 15,8C, 1D,25, 25,25, 25,25, 18B 
1198 DATA 25,1E,0D,15,16,16,16,16,15,9C, 1D,25,25,25,25,18F 
1299 DATA 25,25, 1E, 8D,15,16,16,16,16, 15,4C, 1D,25, 25,25, 18F 
1219 DATA 25,25,25,1E, 9D, 15, 16, 16,16, 16,15,8C, 1D, 25,25, 18F 
1228 DATA 25,29,29, 29,26, 8D, 15, 16,16, 16,16, 15,9C, 27,29, 1B1 
1239 DATA 29,29,8E, 0E, DE, 9E, DE, 15,15,15,15,15,15,8E, BE, 132 
1249 DATA 8E,8E,9E,8E,05,FF,0E, DE, 15,9E,99,FF,0E, 15,9E, ZAB 
1259 DATA 8E,05,FF,9E,9E, 85,FF,9E, DE, 15,0E,89,FF,E, 15, 493 
1269 DATA 8E,9E,85,FF,9E,8E,0E,0E, DE, BE, 15,15, 15, 15, 15, 25D 
1279 DATA 15,9E,0E,9E,9E, DE, 2A, 2A, 2A, 28,00, 15,16, 16,16, 168 
1288 DATA 16,15,8C, 20, 24, 2A,2A,25,25,25, 1E, D, 15,16, 16, 1BC 
1298 DATA 16,16,15,9C, 1D,25,25,25,25,25,25, LE, 8D, 15, 16, 19E 
1399 DATA 16,16,16,15,8C, 1D,25,25,25,25, 25,25, {E, D, 15, 19E 
1319 DATA 15,15,15,15,15,9C, 1D,25,25,25,25,88,FF,1E, 19,253 
1329 DATA JE, 8E,8E,8E,8E, BE, 11, 1D,89,FF,25,25,88,FF,25, 36F 
1339 DATA 1F,2A,2A, 2A,2A, 2A, 2A, 28,25, 88,FF,25,25, 25, 25,373 
1348 DATA 25,25,15,15,15,15,15,15,25,25,25,25,25,15,15, {AB 
1358 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15, 15,15, 13B 
1368 DATA 15,15,15,15,15,15,15,15,15,15,15,15,15, 15,15, 13B 
1379 DATA 25,25,25,25,25,25,25, 25,25, 25,25,25,25,25,25, 22B 
1389 DATA 25,25,12,8F,8F,9F,9F,8F,89F,0F,0F,0F,9F,0F,9F, 119 
1399 DATA 13,25,25,9D, 19, 15,15,15,15,15,15,15,15,15,15,155 
1498 DATA 19,4C,25,25,8D, 15,16,16,12,9F,9F,9F,9F, 13,16, 134 
1419 DATA 16,15,9C,25,25,9D, 15, 16,16, 18,8E,9E, BE, SE, 11, 128 
1428 DATA 16,16,15,8C,25,25,8D, 19, 15,15, 15,15,15,15,15,159 
1439 DATA 15,15, 15,19,9C, 25,25, 18,9, 8E, BE, DE, BE, DE, DE, 129 
1449 DATA DE, SE,E, DE, DE, 11,25, 25,25,25, 25, 25,25, 25,25, 1A4 
1459 DATA 25,25,25,25,25,25,25,25,96, 96,68, 08, 89,09,00, 128% 


DATAS 9 BAS 


18 DATASE AXYS 

28 ‘ 

38 MODE 2:AD=&CB:NL-98 

49 FOR A={ TO 48:B=9:FOR C=1 TO 15:READ A$ 

54 POKE AD, VAL("&"+A$) :B=B+PEEK(AD) : AD=AD+1 

64 NEXT:READ E$:1F VAL("&"+E$)OB THEN 88 

79 NL=NL+18:NEXT : SAVE "PROGRAM. AXS", B, &C9D9, 41012: CLS: END 
88 CLS:PRINT"LIGNE"NL;" INCORRECTE" : END 

98 DATA F3,ED,56, 31,32, 7F,21,FC, 82, CD, EC, 82, CD, 36, 96, 6FB 
198 DATA CD,37,93,CD,CF,92,CD,5F,43,21,8E, 84, CD, SA, 84, 562 
119 DATA 3E, 29,32, A6, 86, CD, C5, 92, CD, 9D, 93, 3A,F8, 7F,E6,644 
128 DATA A1,28, 1D,3E, 99, 2F,32,71,98,B7,29,8B,21,D2,84,447 
139 DATA 81,1C,98,CD, 88,93, 18,99, 21,DF, 95,91, 12,98, CD, 41B 
148 DATA 17,94,21,84,95,81,24,7C,3E,FF,B7, 29,03, 21,93, 437 
159 DATA 95,CD,17,84,21,9C, 95,91,24,88,3E,FF,B7,28, 93,473 
168 DATA 21,45,95,CD, 17,94, 3A,FE, 7F,E6,91, 29,96, 32,94, 53D 
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179 DATA 89,CD,A1,8B,3A,FE, 7F,E6, 92,29, 94,2F,32,94,98,531 
189 DATA 3A,FD, ?F,E6, 82,28, 8D,3A,3F,90,B7,29,07,3A, A5, 591 
199 DATA 89,2F,32,A5,99,3A,FA, 7F,E6,91,C2,63, 98, CD, A3,635 
299 DATA 92,CD,77,89B,3A,94,91,C6,31,21,34,13,BE, 26,93, 3D8 
219 DATA CD,EF,11,CD, 16,92, CD, CF, #2, CD, 32, 15,CD,9D, 93,641 
228 DATA 8E,99, CD, QC, 93,3E, 96,32, 2D,87,CD,C5, 92, AF, 32, 4C9 
239 DATA 34,87,2F,32,07,11,3E,98, 32,30, 16,3E, 4B,32,CB, 3CB 
248 DATA 11,34, 20,97,FE,92,38,F9,3E,09,B7,28, 17, 32, 3A, 458 
259 DATA 97,AF,32,2D,87,CD,C5,92,CD, 13, 9B,3A,2A,91,B7,4B7 
268 DATA 28,F4,AF, 32, 3A,97,3E, 96, 32,2D,07,CD,C5, #2, 3A, 4B2 
279 DATA 23,15,EE, 49, 32,23, 15, 3A, 46,06, EE, 19, 32, A6, 96, 492 
289 DATA 21,09,00,FE, 20,29,93,21,93,91,22,08,99,2A,3B,21F 
299 DATA 88,ED,5B,3D, 99, 22, 3D, 99, ED, 53, 3B,99, 2A,EE, 7E,4F5 
398 DATA ED, 58, F9, 7E, 22,F8,7E,ED,53,EE, 7E,3E,FF, 32,F3,954 
319 DATA 86,CD,6B,48,CD,B6, 98,CD,97,15,CD,13,9B,CD,EF,6F1 
329 DATA 9B,CD, 33,9C,CD, FA, 8C, CD, 88, fD, CD, 8A, A, CD, EB, 775 
339 DATA LA,CD,0C,1B,CD,FB, 9D, CD, CE, 19,CD,3C, 13,CD, 73, 77A 
349 DATA 9E,CD,94,9F,CD,FA, 19,CD,32,17,CD,2F,18,CD,92,657 
359 DATA 19,CD,84,97,34,75,1A,B7,F2,D8,91,3A,FB,9B,FE,G6FA 
369 DATA FF,28,19,CD,C6,11,3A,CB,11,B7,FA,F7,90,3E,99, 6D7 
379 DATA B7,C4,22,91,2A,37,07,E5, CD, 8D,92,E1,22,37,97,58E 
389 DATA 3E, 29, 32, A6, 06,21,19,96,91,12,6C,CD, 17,84, SE, 321 
399 DATA FF,32,F3,96,3E, 9A, 96, CD, 2D,93,98,3D,28,F8,CD, SA 
499 DATA 8D,92,C3,4F,09,AF,32,E4, 17,32,3B,17,32,D4,17,51E 
419 DATA 32,95,8F,32,FF, 19, 32,33, 17,32, 4D,17,32,F9,15,3E2 
429 DATA 32,F4,9B, 32,39, 90, 32,3B, C, 32, A3, 16,32, 37, 16, 387 
439 DATA 32,7B,13,32,6D, 13, 32, B4, 13, 3C, 32,20, 97,32,51, 399 
449 DATA 9C, 32, 76,19,8E, 86, 32,2F,07,3E, 18, 32,98, 15, 3E, 2E6 
458 DATA 2D,32,FB,8B, 21, 1B, C8, 22, 99,00, 21,99,36,22, A2, 3B2 
469 DATA 15,21,09,36, 22,38, 89,21, Aÿ,2E, 22, 3D, 99,21, GD, 245 
474 DATA 99,22,FE, 7E, CD, B9, 98,21, 19, A, 22,F8, 7E,CD,B9,676 
489 DATA 98,CD,C4,98,3E,FF,32,3A,97,21,09,00,22,37,87, 3D2 
499 DATA 3E, 39,32, A6, 96, 3E, BD, 32, 23, 15,C9,8E, 93, 32, 75,425 
599 DATA {A,CD,4F,1A,AF,21,84,1A,11,85,14,81,94, 99,77, 3EA 
519 DATA ED, B9, 32, 94,01, 32, 1D, 19,21,B2,9C,22,5F,9C,C9,471 
529 DATA 8E,FF,B7,20,FB, 2F,32,C6,92,C9,CD,C5,92,3E, 54, 727 
539 DATA 81,19, 7F,ED, 49, ED, 79,9D,F2,D7, 92,21, 90,88, 11,5B6 
549 DATA 91,69,91,FF,7F,75,ED,BD,C9,96,BC,7E,B7,F8, ED, 8B7 
559 DATA 79,84, 23,7E,ED, 79,05,23,18,F2,91,29,92,2A, 94,497 
569 DATA 26,06, 22,07, 23,00, 38,00, 00,95, 09,89,21,1C, 83, 186 
579 DATA #1,19,7F,ED, 49, ED, A3, 94, 0D,F8, 18,F7,54,54,4D,663 
584 DATA 58,46,56,5C, 4C, 4E, 43, 4B,5B,5F,57,5D,44,54, AF, 52D 
599 DATA 67,6F,57,5F,47,4F,ED,B9, C9, 11, 90, 9D, CD, 44,93, 5BA 
699 DATA 15,F2,3A,03,11,3F,97,96,Fa,ED,51,91,99,F6,ED,5B7 
619 DATA 49,38€, C9, ED, 79, ED, 49,96,F4, ED, 59,96, F6, 67, ED, 893 
629 DATA 79, ED, 49,C9,21,82,58,91,99,13,CD, 88,93,21,56,55F 
639 DATA 49,81,91,16,CD, 88,93, 21,9C,69,91,9B, 14,CD, 88,442 
649 DATA 93,21,B9,68,01,9B,14,18,96,21,CC,A3,91, 26, 14, 33F 
659 DATA 54,5D,13,E5,C5,AF, 47, 77,ED,B9,C1,E1,EB, CD, 98, GDA 
669 DATA 15,EB, 19,ED,C9,26,09,6F, 11,B5,93,29, 19, 5E, 23, 4E7 
679 DATA 56,96, 7F,1A,B7,C8, ED, 79, 13, 1 A, ED, 79, 13,18,F4,68C 
689 DATA C1,93,C8,93,CF,93,C1,93,C8,93,CF,93, 64, 4F, QD, 522 
699 DATA 58,8E, 4D, 99,94, 42, 0D, 56, 8E, 52, 99,94, 42,QD,5E, 26D 
788 DATA 9E,4E,90,21,F6,7F,11,F4,F6,91,0E,F4,ED, 40, 42, 668 
719 DATA ED, 78,E6,39,4F,F6, C9, ED, 79, ED, 49,94, 3E,92, ED, 8DD 
729 DATA 79,05, CB, F1, 42, ED, 49,43, ED, A2,9C, AF,B4,F2,F5, SOA 
738 DATA 93,C1,3E, 82, ED, 79,95, ED, 49,C9, 7E,B7,F8,4F, 23, 78D 
744 DATA 46,23,CD,17,04,23,18,F3,E5,CD, 18,15,E1,7E,B7,674 
759 DATA CB,E5,D5,CD, 28B,94,D1,E1,23, 13, 13,18,F1,D6, 28,778 


769 DATA C8, 26, 00,6F,91,53,04,09,6E, 26,08, 29, 44, 4D, 29, 335 
778 DATA 29,29, B7, ED, 42, 81,50, 43, 09, 96,07, ED, AB, ED, A9, 608 
789 DATA 1B,1B,CD,96,15,18,F5,C9,FF,26,FF,FF,FF,FF,FF, QUE 
798 DATA 24, 27,28,FF,FF,25,FF,24,FF,09,91,02,09,94,05, 4CD 
899 DATA 06,97,08,09,29,FF,FF,FF,FF,FF,FF, 8A,0B, 8C, 0D,66F 
819 DATA 8E,0F,19,11,12,13,14,15,16,17,18,19, 1A, LB, 1C, 138 
829 DATA 1D,1E, 1F,29, 21,22, 23,1C,08,41,58,59,53, 89, 11, 25A 
839 DATA 18,54,48,45,29,4C,41,53,54,29,42,41,54,54, 4C, 3E4 
849 DATA 45,99,11,38, 39, 29, 20,53,54,41,52,54, 29, 47,41, 335 
858 DATA 4D, 45, 2€, 2E, 09, 11,49, 31, 29,29, 4B,45,59, 42, 4F, 333 
869 DATA 41,52, 44, 2E, 2E, 26, 26,08, 11,59, 32,29, 29, 4A, 4F, 34 
879 DATA 59,53, 54,49, 43, 4B, 2E, 2E, 2E, 2E, 98, 11,68, 33, 29, 35C 
889 DATA 29,53, 45,4C,45,43,54,28,53,4F,55,4E, 44, 89, 0C, 395 
898 DATA 7C,43,4F,4E,54,52, 4F, 4C, 29, 20, 26, 3A, 98, 0C, 88, 3CB 
999 DATA 53,4F,55,4E, 44,43, 48,49,59,28, 34,09, 09, AB, 59, 3FF 
019 DATA 52,4F,47,52, 41, 4D, 29,29, 34,28, 46,41, 42,49, 45, 389 
929 DATA 4E, 28, 46,45,53,53, 41,52, 44,2E, 2E, 2E, 2E, 2E, 2E, 38A 
938 DATA 26,99, 89, B4, 47,52, 41,59, 48,49, 43,53, 28, 3A, 29, 3AD 
949 DATA 53,54, 45,58, 48,41, 4E,45, 29,53, 41,49, 4E,54,29, 417 
959 DATA 4D, 41,52, 54, 49, 4E, 09,09, C0,53,4F,55, 4E, 44, 2E, 442 
968 DATA 46,58, 29,34, 29,47,52,45,47,4F,52, 59,28, 43, 4C, 3E6 
979 DATA 45, 40,45, 4E, 54, 2E, 2E, 2E, 2E, 2E, 2E, 09, DE, DO, 28, 393 
989 DATA 43, 29, 29,31, 39,39, 31,29, 43,58, 43, 29,49, 4E, 46, 353 
098 DATA 4F,53,49,80, 4A,4F,59,53,54,49, 43, 4B, 98,48, 45,422 
1999 DATA 59,42,4F,41,52, 44,00, 4Ë,4F,2E,53,4F,55,4E, 44,415 
1919 DATA 09,53,4F,55,4E,44,53, 2E, 28, 08,28, 2E,55, 50, 2E, 367 
1929 DATA 26, 09,2E, 44,4F,57,4E, 2E, 09, 2E, 4C, 45, 46,54, 2E, 349 
1939 DATA 99,52, 49,47, 48,54, 26,98, 2E, 46,49,52, 45, 2E, 90, 32E 
1949 DATA 59,41,55,53,45,2E, 40,41, 42, 4F,52,54, 2E, 09, 2E, 389 
1959 DATA 2E,43,48,45,41,54, 29, 4D, 4F, 40,45,2E, 2E, 29, 80, 354 
1969 DATA 2E, 2E, 2E, 4C, 4F, 41,44, 49, 4E, 47, 2E, 2E, 2E, 09, 2E, 349 
1979 DATA 2E,2E, 4C, 45,56, 45, 4C, 28, 98, 2E, 2E, 2E, 80, 2E, 2E, 30A 
1989 DATA 59,52,45,53,53, 29,46, 49, 52, 45, 2E, 09, 2E, 2E, 47, 3A4 
1899 DATA 41,40, 45, 29,28, 4F,56, 45,52, 2E, 26,08, AE, 85,85, 413 
1199 DATA 45, BC,45,C3,05,CA,05,D1,95,D8, 95,21, 2, 07,22, 486 
1119 DATA 69,96,3E, C3, 32, 36,00, 21,5C, 06, 22,39, 09, 3E,F5, 3ER 
1129 DATA DB, 99, 1F,38,F9,3E,F5,D8, 98, 1F, 39, F9,91,0C, 7F, 69D 
1139 DATA ED, 49,FB, C9, F3,ED, 73, 76,96, 31,E6,7F,F5,E5,D5, AGE 
1149 DATA C5,21,20, 97, CD, 78,46, 22,69,96,C1,D1,E1,F1,31,68D 
1159 DATA 99,99,FB,ED, 4D,E9, A, 1A,15,47,07,97,47,E6, 36,501 
1169 DATA 67,2E,00,78,E6,97,57,78,E6,C0,5F, 19,CB, 3C, CB, 689 
1178 DATA 10,81, 0D, BC, ED, 49,94, ED, 69,91, 80, BC, ED, 49, 7C, 5F2 
1189 DATA E6,93,F6, 39,84, ED, 79,3E,90,01,95, BC, ED, 49,04, 583 
1199 DATA ED, 79, 21,88, 06,00, 91,94, RC, ED, 49,91, LB, BD, ED, 6CR 
1289 DATA 49,91,86, BC, ED, 49,91, {D, BD, ED, 49, 01,97, BC, ED, 604 
1219 DATA 49,01, 7F, BD, ED, 49, 21, DA, 86, C9,CD, D6, 93, 21, E1, 72E 
1229 DATA 6, C9,3A, A5, 09, B7, 29, 20,01,C4, 7F, ED, 49, 3C, 32, 58D 
1239 DATA 98,44,DD,E5,3E,FF,B7,FA,FD,06,CD, 48, 49, 18,43, 727 
1249 DATA CD, 93,49,DD,E1,81,C9,7F,ED, 49,21, 98,97, C9,21,661 
1259 DATA 09,19,01,9D, BC, ED, 49, 44, ED, 69,41, 90, BC, ED, 49, 569 
1269 DATA 94,ED,61,3E,09, 91,95, BC, ED, 49,94, ED, 79, 21,20, 53F 
1279 DATA 97,09,3E,01,FE, 06, 29, 20, AF, 32,C6,92, 21,90, 09, 429 
1289 DATA 3E,FF,B7,29,89,91, 19,99, B7, ED, 42, 2,37,07,29, 49D 
1299 DATA 29,29, 29, 7C, 85,32, 14, 15,7C,E6,27,92,1F,87,ÉE, 48C 
1389 DATA 97,C6,98, 32, AB, 96, AF, 3C, 32, 2D,97,01,94, BC, ED, 4B7 
1319 DATA 49,91,98, BD, ED, 49,91,96,BC, ED, 49,01, 86, BD, ED, 5EF 
1329 DATA 49,91,87, BC, ED, 49,91,98, BD, ED, 49, 21, 7C, 96, C9, 5AB 
1334 DATA DD, 21,9D, 09, CD, 97,99, DD, 7E,00,FE, 7F,C8,FE, FF, 78E 
1349 DATA CA,63,88,B7, FA, 16,98, E6, BF, 67,87, 26,09,6F,91,64D 





1359 DATA 5C,42, 99, 4E, 23, 46,23, 7E,23,6E,5F, DD, 56, 82, 82, 446 
1369 DATA 38, 1,28, 18, DD, 36,92, 92,5F, 7A,2F, 30,98, 7D,68, 3CA 
1374 DATA 69,96,99,4F,98, 99, 3D,28,FC, 79,44, 4D,6F, 7B, DD, 4F9 
1389 DATA 77,43,32,E4,07, 7D,32,E7,97,C5, DD, 4E,91, DD, 46,648 
1399 DATA 92,CD,18,15,C1,3E, 98,98, SE, 98, D9, 3D, 3D, 87, 26, 441 
1498 DATA 99,6F,11,92,08,19,5E, 23,56, 23, 4E, 23, 46, DD, 71, 432 
1419 DATA 94,DD, 79,95,91,63,98,C5, 7A, B3,28,9A,91,91,98, 478 
1429 DATA DD, 71,84, DD, 79, 95,09, D5, D9, 98, C9, DD, 4E, 91, DD, 7F5 
1439 DATA 46,92, CD, 18, 15,E6, 3F,87,87,26,98,6F,81, 89,41, 4CC 
1449 DATA 99,7E,23,66,6F, 3E, 29, 98, D5, ED, Aÿ, ED, AS, ED, AB, 761 
1459 DATA ED, A9, ED, AG, ED, AB, ED, AB, ED, A9, D1,3E, 8, 82,57,9B1 
1469 DATA E6, 38,29, 14,74, D6,49,57,7B,C6,49,5F, 39, DA, 14,567 
1479 DATA 7A,E6,97,29,94,7A,D6,98,57,98,3D, 29, CD, 11,86, 483 
1489 DATA 99,DD,19,C3,8B,97,3E, 23, DD, 21,9F, OA, CD, 97,99, 4AQ 
1499 DATA 11,FA,FF,98,DD, 7E,FA,B7,FA, 88,98, DD, 7E, FD, DD, 9E# 
1599 DATA 6E,FE,DD,66,FF,CD, 7B, 96, DD, 19,98, 3D, 29, E6,C9, 86 
1514 DATA 3F,21,2F,26,89,21,47,26,57,22,64,26, CE, 22,86, 445 
1529 DATA 26,91,24, AD, 26, 5,24, D9,26,5F,25, 9A,27, EA, 21, 4A6 
1539 DATA 47,26,5B,23,86,26,2A,EE,7E,54,5D, 13,91, FC, 89,4EE 
1549 DATA 36,FF,ED,B9,C9,DD,21,E6, 98, DD, 7E, 69, FE, 7F,C8,927 
1559 DATA 96,99, DD, 4E, 91, DD,6E, 92, DD,66,93,54,5D, 13, 77,588 
1569 DATA ED,B9,11,94,09, DD, 19, 18, E2, 85,59, 9D, 14,FF,23,64E 
1579 DATA 63,9D,FF,2F,05,11,FF,1F,C1,16,889,6B, 32, 7F,FF,6D4 
1589 DATA 66,9E,7F,99,0F,FE,17,89,9F,B7,18,7F,11, 00,90, 435 
1599 DATA DD,19,C9,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,DB3 
1699 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
1619 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1629 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1639 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1649 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1659 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1669 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1679 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFL 
1689 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1699 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1790 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1719 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1729 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1739 DATA FF,FF,FF,FF,FF,FF,FF,FF,FE,FF,FF,FF,FF,FF,FF,EFI 
1749 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1759 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1769 DATA FF,FF,FF,FF,FF,FF,7F,FF,FF,FF,FF,FF,FF,FF,FF,E71 
1779 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1789 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1799 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1899 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1819 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1829 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
1830 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1849 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1854 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1869 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1879 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1889 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
1899 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1999 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1919 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1928 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
1939 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,7F,21,34,9B, 11, AE6 


1949 DATA F6,7F,AF,47,4E,B1,F8,23,EB,99,EB, {A, A6, 23, 4E, 795 
1959 DATA 23,46,23,5E,23,B7,28,91,5E, 23, 78,92, 18,E2, 99, 3DD 
1969 DATA 91,97,0C,09,FE, 99,44, 94,0C,09,02,91,01,96,0C, 13C 
1974 DATA 99,FF,99,92,93,0C,08,91,00,49,3B,9C,09,FF,43, 29A 
1989 DATA 98,2A,91,99,FF,98,04,E3,91,00,FF, 680,90, 91,09,3A2 
1999 DATA 04,91,91,99,02, 90,48,93,98,08,04,99,81,49, 92,74 

2909 DATA 09,04,09,98,99,19,21,34,9B,11,6D, 6B,91, 05,99, 126 
2919 DATA 3A,94,99,B7,29,93,11,5F,0B,3E,95,CD, 93, 9B, SE, 49F 
2929 DATA 92,11,69,9B,98, 1A,77,13,23, {A, 77, 13,09, 08, 3D, 248 
2934 DATA 29,F3,C9, CD, 82,93,3E,97,DD,21,5F,8B,FD,21,28,621 
2949 DATA 86,F5,CD,2D,43,FD,6E, 99,FD,66,91,91, 1A,82,CD,631 
2959 DATA 17,94,CD,C5,92,96,9A,21,F6,7F,7E,FE,FF,20,05,5F5 
2969 DATA 23,19,F8,18,EE,2F, DD, 77,91,78,2F,D6,F5, DD, 77, 77B 
2979 DATA 99,11,92,99,DD, 19,FD, 19,F1, 3D,28,CB, CD, 82,93, 587 
2989 DATA 21,6E,04,C3,9A,94,3E,99,B7,C9, DD, 21,99, DA, CD, 517 
2998 DATA 97,99,3E, 2D, DD, 77,98,21,1B,C8,11, 99,99, 91,09,2E5 
2199 DATA 99,7C,82,89,67,7D,83,81,6F,11,C8,69,91,37,91,547 
2119 DATA 7C,BA,39,91,62,BB, 38, 91,63, 7D,B6,99,91,68,B9, 5A7 
2129 DATA 38,91,69, 22,99, 90, 2D, DD, 75,91, DD, 74,92, C9, 3A, 4AG 
2138 DATA F9,9B,B7,C9,0E, 99,3E,98,47,B1,C6, 78,87, 28,99, 5DE 
2149 DATA 79,FE,89,C8,3C, 32,39, C, C9, AF, 32, 39, 9C, 96,91, 568 
2159 DATA 21,63,9D, 11, 99,98, 7E,B7,F2,9E,9C,EB,21,B2,8C,546 
2168 DATA 23,7E,12, 13,23, 98,34, 09,00, 66, 12, 13,23, 3A,91, 249 
2179 DATA 9C,86, 12, 13,23, 7E,B7,28,93,ED,44, 77,12, 13,23, 42 
2189 DATA 91,92,89,ED,B9, 7E,32,F3, 06,23, 7E,06,26,00,6F, 487 
2198 DATA 91,5E,42, 29,29, 99, 7E,12,19,23,7E, 12, 13,98, 12,27F 
2289 DATA C9,19,19,B7,C9,B2,8C, BB,8C,C4,9C, CD, 9C, D6,9C, 682 
2219 DATA DF,9C,E8,9C,F1,9C,94,97,92,91,99,FC,19,90,81, 499 
2229 DATA 84,93,83,F6,81,F8,0C,891,91,92,96,92,F6,08,FC, 493 
2239 DATA 19,92,92,93,92,93,F6,91,FC, 19,04, 93,93, 91,93, 23F 
224$ DATA FA,09,FC, 19,8F, 93,493, 99,92,95,91,FC, 19,9B, 4, 359 
2259 DATA 92,2B,91,95,99,FC, 19,97,04,91,2A,99,95,89,FC,27F 
2268 DATA 19,95,85,DD,21, 85,99, CD,97,99,21,63,9D, 7E,FE, 499 
2274 DATA 7F,C8,B7,FA,58, 9D,23,4E, 23, 46,23,5E, 23,56,23,554 
2289 DATA 35,29,04,3E,FF, 18,17,98,7E,E6,93, 29,97, 7B,B7, 48D 
2298 DATA 26,93,ED, 44,6F, 79,B7,FA,18,D,FE, 3C, 39, E6, 96, 662 
2359 DATA DD, 77,89,DD, 71,81, DD, 79,92,D5, 11,95,98,B7,ED,681 
2319 DATA 52,D1,77,23, 79,83, 77,23,78,82,77,23, 73, 2B,2B, 5BD 
2328 DATA 2B,FE,94, 39,02, 36,FF, 11,99, 98, 19, 11,96, 99, DD, 3BB 
2339 DATA 19,18,A1,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,CC6 
2349 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EF1 
2359 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,7F,DD,21,C1, 16,24, B75 
2369 DATA 98,99,11,9D,99,19,11,94,99, DD, 7E, 89, FE, 7F,C8, 496 
2379 DATA B7,FA,EF,0D,F6, 88,77, 23,DD,4E, 91, 71,23, DD, 46, 7AË 
2389 DATA 92, 79,19,FE, 89, 28,39, FE, 84, 39, 16, 78,FE, 19,38, 5F9 
2399 DATA 27,FE, 29,38, 23, D6, 19,9F,0F,9F,E6, 93, 3C, DD, 77, 52D 
2499 DATA 09,18,16,FE,85,38, 12, 78,0F,0F,E6,07,D9, 26,09, 47D 
2419 DATA 6F,11,F3, 9D, 19, 7E, D9, DD, 77,89, 78,3C, DD, 77,92, 64E 
2429 DATA FE,ES,29,64,DD, 36, 99,FF, DD, 19, 18, A3, 95, 33,96, 603 
2434 DATA 35,97,36, 98,34, DD,21,C1,16,96,98,9E, 84, FD, 21, 3C1 
2449 DATA 63,89D,DD,7E,89,FE, 99, D2,69, SE, FD, 7E,99,B7,FA, 747 
2459 DATA 69,9E,FD,5E, 91, DD, 7E,91,BB, 39,47,C6,97,BB, 38, 5D8 
2469 DATA 39,18,48,57, 7B,FD, 86, 87, BA, 38,26, FD,56, #2,DD, 5F6 
2479 DATA 7E,92,BA,39,97,C6,1E, BA, 38, 18,16,98,5F, 7A,FD,555 
2489 DATA 86,96,BB, 38,9E, CD, 5C, 19,34, 89, 14, 3C, 32, 89, {A, 4B4 
2499 DATA SE, 89, 18,91, AF,32,5C,9E, FD, 7E,08,F6,88,FD, 77,607 
2599 DATA 08, 11,99, 99,FD, 19, 9D,C2,9F,0E, 11,94, 99, DD, 19, 327 
2519 DATA 95,C2,91,9E,C9, DD, 21,9, 14, 96,86,8E, 84, FD, 21, 4BA 
2528 DATA 63,9D,DD, 7E,89,B7,FA, FA, DE, FD, 7E,90,B7,FA,F1,8A1 








2538 DATA SE, FD,5E, 91, DD, 7E, 96, BB, 38,08, DD, 86, #2, BB, 36,618 
2548 DATA 49, 18,98, 57, 78, FD, 86,97, BA, 38, 3F, FD, 56, 92, DD, 628 
2554 DATA 7E, 49, BA, 39,08, DD, 86,93, BA, 38,38, 18,88, 5F, 74, 4FA 
2569 DATA FD, 86,96, BB, 38, 26, DD, 5E, 91, FD,56, 98, D5, 78,92, 71B 
‘2578 DATA DD, 77,41,28,92, 30,03, CD, 62, 8F,D1, 74,93, FD, 77,642 
2588 DATA 06, 28,02, 39,89, 3E, 97, 32, F3,06,3E, 89, 18,01,AF, 361 
2598 DATA 32, ED, 0€, FD, 7E,69,F6,08,FD, 77,08, 11,49, 99, FD, 629 
2699 DATA 19,4D,C2,86,0E, 11,0F, 80, DD, 19,05, C2, 79, 8E, C9, 4A9 
2618 DATA 3E,04,B7,C4, ED, 4B,99,0C,CD, 11,18,CD, CC, 8F, DD, 66C 
2629 DATA 21,90, 14,DD, 7E, 09,87, C8,FA,55,0F, DD, 7E, 48, B9, 726 
2634 DATA 39,98, DD, 86, 92, B9, 36, 28, 18,97,5F, 79, C6, SA, BB, 538 
2648 DATA 38, 22, DD, 7E,49, B6, 39, 98, DD, 86, 93, BG, 38, 16, 18, 532 
2658 DATA 97,57, 78,C6, 14, BA, 36, 9D,CD,5C,9F,3E, FF, 32, FF, 655 
2669 DATA 19,3E,8B, 32,F3, 96, 11,0F,99, DD, 19, 18, BA, DD, 35, 487 
2678 DATA 91,F2,C7,0F, DD, 76,98, 32, 78,0F,DD, 36,89, FF, CD, 6B4 
2689 DATA D3, 17,3E,90,FE, 2E, 28, 1A,FE, 2C, 28, 3E, FE, 28, 28,574 
2604 DATA 3A,FE, 29,28,36,FE, 25, 28, 32, FE, 26, 28, 26, FE, 27, 5DB 
2709 DATA 28,2, 18,20, C5, DD, dE, 98, DD, 46, 99, 3,93, 81, 4F, CB 
2719 DATA 3E,9F, 89, 47,3E, 91, CD, 76, 18, DD, 4E, 88, DD, 46, 89, 595 
2728 DATA 3E,99,81,4F,3E, 1E,89,47,3E, 01, CD, 76, 18,C1,3E, 4C2 
2738 DATA 91,18,91,AF,C5,DD, 4E, 98, DD, 46,49,CD, 76,19,C1,691 
2748 DATA 21,89, 1A, 34, C9, DD, 21, 32, 7F, DD, 7E,06,FE, FF, CB, 796 
2759 DATA B7,FA, OA, 18, DD, 7E, 07,89, 38,97,C6,64,B9, 36, 25, 5FD 
2768 DATA 18,87,5F, 79, C6, A, BB, 36, 1C, DD, 7E, 98, B6, 39, 97,528 
2778 DATA C6, 97,B8, 38, 11, 18,80, 57,78,C6, 14, BA, 38, 98, 3E, 4D3 
2788 DATA 89,32,FF, 19, DD, 77,96, 11,99, 08, DD, 19, 18, BF, DD, 5EB 
2798 DATA 21,01,16,DD, 7E,98,FE, ?F,CB,87,FE, 99, 39, 35, DD, 798 
2899 DATA 7E, 81,89, 39,07, C6,97, B9, 38, 2A, 18,97,5F, 79,C6,514 
2819 DATA SA, BB, 38,21, DD, 7E, 92,88, 38,07, C6, LE, BB, 36, 16,554 
2828 DATA 18,97,57, 78,C6, 14, BA, 38, 4D, CD, 5C, 18, 3E, FF, 32, 56F 
2838 DATA FF,19,3E,95, 32,F3,96, 11,94, 08, DD, 19, 18, B9, DD, 53F 
2849 DATA 36,98,89, CD, C2, 17, C5, DD, 7E, 81, C6, 92, 4F, DD, 7E, 678 
2859 DATA 92,06, 9A,47,AF,CD, 76, 18,C1, C9, 28,08, FE, 91, 29, 5F2 
2869 DATA #7,ED,5F,E6, 8F,6F,3E, 91,98, 3E, 99, 32, F3, 06, 7D, 4ED 
2878 DATA 32,87, 19,98, 26,98,6F,54,5D, 29, 19,11,C8, 19, 19, 38B 
2888 DATA 7E, 32, BE, 19, 23,5E, 23,56,ED, 53, CH, 19, 21,95, 11, 54F 
2898 DATA 11,96,09, 7E,FE, 7F,C8,B7,FA,B6, 19,19, 18,F5, 36, GAD 
2999 DATA 98, 23, 71,23, 79, 23,3E,01,11, 38, 11,73, 23, 72,23, 30E 
2918 DATA 77,C9,91,38,11,94,59,11,DD,21,55,99,CD, 47,9, 431 
2928 DATA FD,21,95,11,11,96,49, FD, 7,08, FE, 7F,C8,B7,FA, 4C 
2938 DATA 34, 11,D9, FD, 7E, 98,CB,3F,4F,87,81, 26,0, 6F, FD, 68C 
2949 DATA 5E,83,FD, 56,94, 19, 7E,5F, 23, E6, 7F, DD, 77,09, FD, 687 
2958 DATA 7E,81,86, DD, 77,91, 23, FD, 7E,02,86,FE, E9, 36, 86, 69C 
2968 DATA FD, 36,69, 89, 3E, E9, DD, 77,92, FD, 34,92, 7B, D9, B7, 765 
2978 DATA F2, 2F,11,8E,FF, FD, 35,95, 28, 92,E6, 7F, FD, 77,09, GAI 
2989 DATA FD, 36,99, DD, 19, FD, 19, 18, A4,4C, 08, 88, 0D, 09,98, 412 
2998 DATA 9, 99,99, D, 08, 99,00,08,00,07,60,09,08, 69,0, 28 

3999 DATA 09, 89,09, 84,09, 86,08, 09,09,85,99,00,0F,08,FC, LAE 
3919 DATA 28,03, 0€, 2A,01,99,28,93,04,6F,92,FC, 28,09, FC, 2CD 
3929 DATA 2A,91,9E, 28,91, 96, 2A,01,94,2B,92, FC, 2A, 00,FC, 2E3 
3938 DATA 28B,93,0E,0F,91,09,0F,93,04, 2A,01,FC, 28,09, FC, 289 
3848 DATA 9F,03,0E, 28,01, 09, 2A,01,94,AB,92,FC,FF,FF,FF, 521 
3458 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3669 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3878 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3989 DATA 7F,3E,FF,B7, C8, 3E, 48, B7, 28, 8F, 30, 32, CB, 11,E6, 6DB 
3499 DATA 8F,FE, 0F, C9, 3E, QD, 32, F3,06, C9, 2F, 32, CB, 11, 34, 592 
3198 DATA #4,91,FE,45, 29, 82, 3E,FF, 3C, 32, 94,01, CD, 8D, 92, 436 
3114 DATA 3E,FF, 32,F3,96, CD, CF, 42, CD, 20,93, CD, 20, 93, 3E, 63E 


3128 DATA CA, 32,23,15,21,EF,85,91,13,79,CD, 17,94, 34,04, 3E9 
3138 DATA 81,06, 31, 32,34, 13,32, 96,96, 21, FD, 85, 81, 13,89, 366 
3148 DATA CD, 17,84, CD, 4D,93,F3, 21, FC, #2, CD, EC, 92, 3A, 3F, 698 
3159 DATA 89,87,28, 21, 3A,04,91,87,87,87,57, LE, 88, 21,9, 362 
3168 DATA 48,19,11,99,36,91,C4,7F,ED, 49,81, 09,98, ED, BA, 4CB 
3178 DATA 91,09, 7F,ED, 49, 18,8E, 21,78, 12,11,88,BE, #1, A9, 543 
3189 DATA 69,ED,B9,CD, 89,BE, F3, 21,98, 06,91,13,99, CD, 17,655 
3198 DATA 94,CD, 36,96, CD, C5, 42,CD, 13,8, 34,38, #C, B7, 28, 4EC 
3298 DATA F4,C9,34,3F, 49, 32, 39, 13, ED, 73, 34, 13,31, 90, C8, 552 
3218 DATA AF,98, D9, 91,88, 7F, ED, 49, 79,9, CD, 44, 89, DD, 21, 72F 
3224 DATA 98,96, DD, 7E,99,FE, 44, 28,84, DD, 23, 18, F5, DD, 7E, 637 
3234 DATA 81,87, 29,F6,DD,6E,93,DD,66, #4, CD, 28, BF, DD, GE, 762 
3248 DATA 15,DD,66, 16, CD, 28, BF, DD,6E, 96, DD, 66,47, CD, 28, 682 
3258 DATA BF,D9,91,8C, 7F, ED, 49,D9,9E,97,11,48,80, 21,FF,639 
3268 DATA B9,CD,CE, BC, 3E,FF,CD,6B,BC, CD, A7, BC, AF, CD, DE, 9F2 
3278 DATA BC, 91,99,08, CD, 38, BC, AF, 21, 24, 13,46, 48,F5,E5, 5ED 
3288 DATA CD, 32,BC,E1,F1,23,3C,FE, 19,29,F1,06,95,11,98,627 
3298 DATA 36, 21,34, 13,5, CD, 77, BC, E1, D2, 68,88, CD, 83, BC, 732 
3398 DATA D2,98,49,CD, 7A, BC, D2, 69, 49, 3, 39, 13, 32, 3F, 48, 49E 
3318 DATA ED, 7B, 34, 13, C9,E9,98,91,05,98B,8E, 17, 14, 19,8F, 3DF 
3328 DATA 96,93,49, 04, 84,08, 49,39, 2E, 41,58,53,99, 09,08, 172 
3334 DATA 3A,C7,11,87,C8,CD, 4, 13,CD,6C, 13, CD, B3, 13,C3, 768 
3348 DATA D, 14,21,9D, 14,11,8F,09,81,09,96, 7E,B7,F2,5C, 39D 
3354 DATA 13,00, 19,18, F7, 79,FE, 06,C8, 3A, CA, 13, B7, CH, 32, 63C 
3368 DATA 6D,13,C9,3E, 49, B7, C9, 32, D4, 17, 2F, 32, 6D, 13,32, 52E 
3374 DATA B4,13,3E, 08,87, 28,00, 3E,08,EE, 01, 92,89, 13,4F, 42A 
3389 DATA ED,5F,E6,9F,81,26,99,6F,11,49, 1D, 29, 19,5E, 23, 488 
3309 DATA 56,21,F8, 14, EB, 7E, 23, 32, BD, 13, 32, B6, 13, 7E, 23, 5AF 
3499 DATA 32, CA, 13,32, DA, 17, ED, A9, ED, AS, 3D, 28, F9, CO, 3E, 7AQ 
3418 DATA 99,87, C8, 3E, 99, 3D, 29, 92, 3E, 08, 32, B6, 13, C9, 21, 438 
3426 DATA F8, 14,5E, 23,56, 23, 3E, 09, 3D, 32, CA, 13, 2, 06,32, 3E8 
3438 DATA Ba,13,21,F8, 14, 22,C3,13,21,9D, 14,81,8F, 99, 7E, 44C 
3449 DATA B7,C8,FA,E9, 13, 99,18, F7,AF, EB, ED, A9, ED, A,ED, A2E 
3459 DATA A9,ED, A9, 12, 13, 12,13, ED, AB, ED, A, ED, A9, ED, AO, BAB 
3468 DATA 12, 13,12, 13,70, 12,13, 7C, 12,13, 3E, 0C, 12, C9, DD, 38F 
347 DATA 21,9D,14,11,E5,99, 2A, 98,99, 19,EB, DD, 7E, 49,7, 522 
3488 DATA CB,FA,95, 14,32, F4, 17, 12,DD, 35,94, F2, 4D, 14,96,619 
3498 DATA 99, DD, 46,95, DD, 6E, 06, DD, 66,97, 29, 8C, 8C, 7E, 23, 48D 
3599 DATA B7,F2,43, 14,6, 7F,8E, 99, DD, 77,99, 7E, DD, 77,84, 69D 
3519 DATA DD, 71,95, 06,09, DD, 4E, 98, DD, 6E, 8C, DD, 66, 90, 89, 53F 
3528 DATA 7E,FE,FF, 29,84, DD, 77,09, 12, E6, 7F, DD, BE, GA, 28, 72F 
3534 DATA 11,7E,B7,F2, 76, 14,0E, FD, 00, #C, 00, DD, 71,88, DD, 621 
3548 DATA 36, 94,69, DD, 34, BA, 23, DD, 7E, #6, 86, DD, 77,08, 13, 4D6 
3554 DATA 12, 13,23, DD, 7E, 99,86, DD, 77,99, 12,13, 13, 13,13, 3ED 
3569 DATA 91,9F,09,DD,49,C3, 19, 14,69, 89, 89, 69,89, 80,88, 566 
3574 DATA 69,69, 84, 69,69, 80, 60, 68,69, 89,68, 89, 80, 89,89, 784 
3588 DATA 69, 89,89, 69, 89, 89, 80, 89, 89, 89, 80, 89, 89, 88,88, 789 
3599 DATA 86,69, 6, 69, 68, 69, 89, 68,89, 69, 89,89, 60, 69, 69, 788 
3699 DATA 86, 89,89, 69,89, 69, 89, 89, 89, 69, 89, 80, 89, 69,89, 780 
3614 DATA 69,69, 89, 69, 69, 69, 89, 88, 89, 69, 89,89, 69, 69, 69, 789 
3629 DATA 69, 89,89, 80, 89, 89, 89, 86,09, 86,09, 00,08, 06,00, 400 
3639 DATA 96,00,00,00,09,09,08, 88,08, 08,3E, 98, 82, 57,E6, 245 
3649 DATA 38,C9,3E, 49,83,5F,3E, CO, BA, 57, C9, 08, 3E, 06, 89, 5C6 
3654 DATA 97,97,07,47,E6, 38,F6,88,67,69, 78,E6, 47,57, 78,5F4 
3669 DATA EG, C9,5F, 19,EB, 98, C9, 3E, 25, 87, 87, 26,08,6F,11,5F1 
3678 DATA 89,41,19,5E, 23,56, 21,98, C8, 22,55, 15, EB, 22, 52, 47D 
3689 DATA 15,3E,19,48,0E, 19,06, 19,21,89,99, 11,99, 09,5, 1A6 
3699 DATA C5, ED, A9, ED, A, ED, AG, ED, AB, C1,D1,3E, 88, 82,57, JAA 
3799 DATA 39,08,3E, 49,83,5F,3E, CH, 64,57, 19,E4, 24,55, 15, 4FF 
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3714 DATA 11,94,99, 19,22,55,15,9D,28,CF,11,49,89, 19,22, 242 
3729 DATA 55,15,98,3D,29,C1,21,09,C9,11,99,89,91,00, 49,343 
3738 DATA ED,B9,C9,8E, 18,FE, 19,C2,58B, 16,96, 19, DD, 21,29, 699 
3748 DATA 36,21,E2,16,11,99,99, DD, 7E,09,FE,FF, CA, 38, 16,5C8 
3758 DATA B7,F2,C5,15,E6, 7F,32,13,16,4F,3E,FF, 32, F0, 15, 79F 
3768 DATA 79,11,89,FF,ED,53,E5,15,E5, 87,87, 26,48,6F, 11, 6DC 
3779 DATA 89,41,19,5E,23,56,23,23,7E,21,FF,09,FE, 94,29, 4B7 
3789 DATA 83,21,3F,49,19, 11,99, 99, 19,54,5D,E1, 73, 23, 72,349 
3798 DATA 23,FE, 94,28, 3D, AF, 77,23,77,23,3E,09,B7, 28,33, 4BD 
3849 DATA 78,D9,47,11,94,09,21,C1,16,7E,FE, 7F,28, 29,B7,59F 
3819 DATA FA, 12, 16,19,18,F4,3E,98,FE, SA, 38,02, F6, 89, 77,5B4 
3829 DATA 23,78,3D,87,87,ÈE,3F,D6,93, 77,23,36,F1, 23,36, 606 
3839 DATA 8F,AF,32,F9,15,D9,DD, 23,95, C2,A7,15,3E, 99,FE, 696 
3849 DATA 7F,28,16,3E,08, 87, 28,6, 3D, 32, 3D, 16, 18,95,3E, 2FD 
3859 DATA 11,32, 7B,13,8E, 7E,DD,21,22,17,DD, 22, A2, 15, 3C, 4B6 
3869 DATA 32,37,16,AF,3C, 32,98, 15,91, 3F,99,CD, 18, 15,3E, 3C1 
3874 DATA 19,DD,21,92,17,D5,CD, 7A,16,D1, 7A,EE, 49,57, 3E,667 
3889 DATA 19,D0,21,92,17,DD,6E,FE,DD,66,FF, 4F, ?C,B5, 79, 7AB 
3899 DATA 29,13, 3D, DD, 28, DD, 28,DD,6F,FE,DD,66,FF,ED, AB, BAÿ 
3999 DATA ED, A8, ED, AB, ED, A8, ED, AB, ED, AB, ED, A8, ED, A8, 4F, B62 
3919 DATA 3E,09,B7,28,96, DD, 75,FE,DD, 74,FF, 79, DD, 2B, DD, 821 
3924 DATA 2B,B7,28,93,3D,29,C2,3A, A3, 16,EE, 81,32, A3, 16, 4F9 
3939 DATA CO,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF, EBB 
3949 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,FF,EFI 
3959 DATA FF,FF,FF,7F,00,09,90,00,00,00,00,00,09,90,B9, 37C 
3969 DATA 69,09,00,00,00,00,09,00,00,00,00,00,09,00,98,0 
3974 DATA 49,09,09,00,09, 00,00, 00,00,00,00,00,00,90,00,9 
3989 DATA #9,00,00,00,09,00,09,00,09,00,00,00,09,00,90,9 
3994 DATA 99,09,09,00,00,90,00,90,14,14,14,14,14,14,14,8C 
4998 DATA 14,14,14,14,14,14,14,14,14,3E,99,32,95,9F,B7, 1EF 
4919 DATA 29, 1D,3E,99,B7, 28,90, 3D, 32,3B,17,3A,FB,9B,EE, 456 
4929 DATA D2,32,FB,8B,C9,3E, 99, 32,FB, 19,B7,C8, 32,33, 17,652 
4934 DATA C9,32,F4,8B, DD, 21,99,8A,CD,97,09,21,59, 11, ED, 55C 
4949 DATA 5B,99,0C, 4E,23,7E, 23,83, DD, 77,91, 7E,23, 82,DD,551 
8959 DATA 77,92, 79,87,F2,BB,17,E6,7F,F5,3E, 92,B7, 29, 2B, 709 
4969 DATA 34,75,14,B7,F4,4F, A, CD, 7A, 03, AF, 32, 1D, 19,21, 55F 
4979 DATA B2,9C,22,5F,8C, 32,F0,9B,32, 33,17, 32, 4D, 17, 32, 3BC 
4989 DATA 95,4F,3C, 32,51, 0C,3E, 48, 32, 3B, 17, 3E, 93, 3D, 32, 299 
4999 DATA 7F,17,8E,0C, 32,F3,96,F1,21,59,11,DD, 77,89, 22, 4FD 
4199 DATA 62,17,C9,3E,01,FE, QC, 29,96, SE, 1F,CD,YE, 18, AF, 4B9 
4119 DATA 3C,32,C3,17,09,3E, 99, 3C, 32,D4,17,FE, 9, CD, 34, 5AB 
4129 DATA 7B,13,FE, 11,29,9B,3E,99,FE, 2E, 29,95, AF,32,C7,4FF 
4138 DATA 11,C9,ED,5F,E6,91,3E, (E, 28, 92,3E, 1C,E5, CD, BE, 5SAD 
4149 DATA 18,E1,C9, 90,09, 99,99, 09,09,00,00,00,00,00,69,1C2 
4159 DATA 99,09,00,90,21,B7,18,11,94,99,08,7E,B7,C6,FA, 494 
4169 DATA 1E,18,19,18,F7,98,77,23,ED,5F,E6, 1F,C6, 19, 77,59E 
4179 DATA 23,36, EF, 23,36, 99,C9, DD, 21,B7,18,21,3D, 99, ED, 58B 
4189 DATA 5B, 498,99, 19,11,94,99,DD, 7E, 89,B7,C8,FA, B3, 18,539 
4199 DATA 77,23,DD,4E,91,71,23,DD, 46, 92,79, 3A,F4,0B,B7, 5DB 
4299 DATA 29,2B,ED,5B,99,0C, 7B,B9,39,97,C6, GA, B9, 38, (E, 4E9 
4219 DATA 18,06, 79,C6,94, BB, 38, 16, 7A, BB, 39,97,C6, 15, BB, 566 
4229 DATA 38,9D,18,96,78,C6,19,BA,38,05,CD, 96, 19, 18,29, 3D7 
4238 DATA DD, 7E,93,FE,3F,29,92,3E,FF, 3C, DD, 77,83, D9, 26, 68C 
4249 DATA 99,6F,11,C8,18,19,7E,D9, DD, 86,891, DD, 77,91,DD, 666 
4259 DATA 7E,92,C6,92,DD, 77,92,FE,E1, 29,04, DD,36,99,89,634 
4269 DATA 11,94,89, 19,DD, 19,16, 84,69, 85,89, 89,69, 89, 89,549 
4279 DATA 89,69,69, 69,89, 89,89, 89, 88,99,01,91,81,99,81,484 
4289 DATA 99,91,99,01,99,99,01,99,09,91,00,00,FF, 00,09, 193 
4299 DATA FF,09,99,FF,99,FF,08,FF,08,FF,FF,FF,FF,FF,FF,9F6 
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4309 DATA 99,FF,09,FF,00,FF,09,09,FF,00,09,FF,09,00,91, 4FC 
4318 DATA 09,09,01,00,00,91,98,91,08,91,90,91,91,91,DD,E4 
4324 DATA 7E,09,FE, 1C,28,0D,FE, 10,28, 4A,FE, {E, 28, 5D,FE, 5F9 
4338 DATA 1F,28,6A,C9,3E,98,FE, 97,D8, 3C, 32, 1D,19,E5,D5,5EB 
4349 DATA 26,98,6F,11,A2,4C,29,19,5E, 23,56, ED,53,5F,9C, 418 
4359 DATA F5, 1A,32,78,19,3E,91,32,51,9C,F1,9D,FE, 96,28, 4FA 
4368 DATA 9F,26,09,6F,11,B9,69, 29, 19,EB,91, 76, 1A,CD,34, 484 
4378 DATA 1A,D1,E1,3E, 9A, 32,F3, 96,09, A, 75, LA, FE, 99, DY, GAB 
4389 DATA 3C,32,75,1A,E5,D5,CD, 69, 1A,D1,E1,3E, 98, 32,F3, 724 
4394 DATA 96,C9,3A,51,9C,FE,D4, 39, A1, 3C, 32,51, BC, SE, BA, 44C 
4499 DATA 32,F3,06,C9,E5,D5,CD, 4F, 1A,D1,E1,3E,9E, 32,F3,887 
4419 DATA 96,09,21,89, A, 7E,B7,28,18,96,44,2B,2B,86,FE, 4EC 
4429 DATA GA, 38,0E,D6,8A, 77,3E, 91, 19,F3,AF, 77,23, 77,23, 4CC 
4438 DATA 77,23,77,T6,FE, 92,28,95,3E, 1D,CD,9E, 18,9E, 13, 44D 
4449 DATA 32,3F,14,96,95, DD, 21,84, 1A, 11,82, 58, DD, 7E,98, 478 
4458 DATA C5,D5,91,E6, 19, CD, 34, 1A,D1,C1,13,13,DD,23,19,67D 
4469 DATA ED, AF,32,89, 14,3E, 14, 32,3F, 1A,C9,B6, 45, DC, 45,633 
4479 DATA 92,46, 28,46, 4E, 46,74, 46,98, 46,C8,46,E6, 46, AC, 522 
4489 DATA 47,3E,99,B7,C9,3E,09,B7,C8,AF,32,FF, 19, 3A,3B,627 
4498 DATA 17,B7,C9,3A, 74, 1A,3D,28,12,2F,32,FB, 19, 32, 4D, 4B9 
4599 DATA 17,34,71,09,B7,29,04,21,75, 14,35, AF, 32, 74, 1A, 3Fi 
4519 DATA 26,09,6F,11,9C,69,29, 19,FB,3E,06,91, 76, A, 26, 3CA 
4529 DATA 98,6F,29, 99, 4E, 23,46,69,69,3E, 14, ED, A9, ED, AD, 58D 
4534 DATA 1B,1B,98,CD,98, 15,98, 3D,29,F2,C9,AF,11,9C,60, 594 
4549 DATA F5,D5,91,76,1A,CD,34, 1A,D1,F1,13,13,3C,FE, 96, 69E 
4559 DATA 29,EF,3E,06, 32,74, 1A, 3A, 75, 1A,11,56,58,91,E6, 482 
4568 DATA 19,18,C9,96,93,32,47,32,47,5A,47,82,47, AA,47,447 
457$ DATA D2,47,C9,57,00,00,00,08,98,90,DD,21,9D, 14, DD, 4BC 
4588 DATA 7E,99,B7,C6,FA,E4, 1A,FE,2E,26,0C, FE, 2C, 28,98, GAF 
459ÿ DATA FE, 28,28,94,FE, 17,29,SE, DD, 35,0E, 29, 39, 32,C1,531 
4699 DATA 1A,3E,07,32,F3,96, DD, 36, 0E, 8C, DD, 46,98, DD, 4E, 50D 
4619 DATA 99,11,3C,96,3E,90,FE,2E,28,11,11,1E,93,FE, 28,357 
4629 DATA 28,4A,11,97,06,FE,2C,28,93,11,92,91,78,82,47,2FA 
4639 DATA 79,83, 4F,DD,E5,CD,22, 1B,DD,E1,11,9F, 04, DD, 19,6EB 
4649 DATA 18,A3,21,C1,16,7E,FE, 7F,C8,23,B7,FA, 1D, B,FE, 789 
4659 DATA ÿ4,38,22,FE, 09, 39, 1E, 46,23, 4E, 23, 35,28, 19,3E, 339 
4669 DATA 97,32,F3,96,3E, 19,77, 78,C6,92,47, 79,C6, D, 4F, 522 
4674 DATA E5,CD, 22, 1B,E1, 18,92,23,23,23,18,CC, 34,89, QC, 47D 
4688 DATA C6,93,67,3A,01,8C,C6,98,6F,DD, 21,32, 7F, 11,99, 47D 
4694 DATA 99,DD,7E,96,FE,FF,C8,B7,FA, 43,18, DD, 19, 16,F2, 835 
4799 DATA EB,C5,7A,99,67,30,02,ED, 44,47, 7C,16,FF,B7,FA, BAD 
4719 DATA 56,18,16,91,C5, AF,67,6B,47,ED,42,44, 4D, 39,45, 5ÿA 
4728 DATA 67,6F,B7,ED,42,78,1E,FE,B7,FA,6F,1B,1E,92,C1, 76C 
4730 DATA 4D, 78, B9, 26,99, D2, 7A, 18,24, 79,CB,3F,CB, 39, DD, 695 
4749 DATA 36,48,99,DD, 77,91, DD, 79,92,DD, 71,93, DD, 72,94,57E 
4759 DATA DD, 73,95, DD, 74,96,C1, DD, 74,47,DD, 71,48, C9, DD, 7BD 
4769 DATA 21,32,7F,21,9D,99, ED, 5B, 98,99, 19,11,99, 09,91, 326 
4774 DATA 94,99,DD,7E,96,FE,FF,C8,B7,F2,8C, 1B, DD, 19,18, 7B8 
4789 DATA F2,36,96, 23, DD, 7E,87, 77,23, DD, 7E,96, 77, 99,D9,60B 
4798 DATA DD, 7E, 96, DD, 4E, 93, DD, 46,42, DD,66, 91, DD, 6E, 89,643 
4899 DATA B7,28,35,DD, 7E,98, DD, 86,45, DD, 77,98,FE,94,38,675 
4819 DATA 94,FE, FO, 36,94, DD, 36, 96, 88, 7C, 88,67, B9, 38, 13,62E 
4829 DATA 91,67,DD, 7E,97,DD, 86, 94, DD, 77,97,FE, 3C, 38,94, 692 
4838 DATA DD, 36, 96, 89, 2C, 7D, B9, 38, 39, 18,33, DD, 7E, 97, DD, 5F6 
4849 DATA 86,94,DD, 77,97,FE,3C, 38, 84, DD, 36,96, 89, rC,81,5F1 
4859 DATA 67,86, 38, 17,99,67,DD, 7E,48,DD,86,95, DD, 77,88, 68€ 
4869 DATA FE, 94,38,94,FE, F9, 38,94, DD, 36, 96, 89, 2C, 7D,B8, 662 
4879 DATA 38,94, DD, 36,26, 89, DD, 75,98, DD, 74,91, D9,C3, BB, 6CD 
4889 DATA 1B,AF,09,00,09,00,00,00,00,00,99,00,09, 00,99, DCAw 
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